/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / obsolete.elc.z / obsolete.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 36 3a 33 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:37 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 6f 62 73 6f |3/lisp/p|rim/obso|
|000000a0| 6c 65 74 65 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |lete.el.|;;; emac|
|000000b0| 73 20 76 65 72 73 69 6f | 6e 20 32 30 2e 33 20 22 |s versio|n 20.3 "|
|000000c0| 56 61 74 69 63 61 6e 20 | 43 69 74 79 22 20 58 45 |Vatican |City" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 6f 62 73 6f 6c 65 | (error |"`obsole|
|000001f0| 74 65 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |te.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 23 40 31 | 34 32 20 44 65 66 69 6e |))...#@1|42 Defin|
|00000260| 65 20 4f 4c 44 46 55 4e | 20 61 73 20 61 6e 20 6f |e OLDFUN| as an o|
|00000270| 62 73 6f 6c 65 74 65 20 | 61 6c 69 61 73 20 66 6f |bsolete |alias fo|
|00000280| 72 20 66 75 6e 63 74 69 | 6f 6e 20 4e 45 57 46 55 |r functi|on NEWFU|
|00000290| 4e 2e 0a 54 68 69 73 20 | 6d 61 6b 65 73 20 63 61 |N..This |makes ca|
|000002a0| 6c 6c 69 6e 67 20 4f 4c | 44 46 55 4e 20 65 71 75 |lling OL|DFUN equ|
|000002b0| 69 76 61 6c 65 6e 74 20 | 74 6f 20 63 61 6c 6c 69 |ivalent |to calli|
|000002c0| 6e 67 20 4e 45 57 46 55 | 4e 20 61 6e 64 20 6d 61 |ng NEWFU|N and ma|
|000002d0| 72 6b 73 20 4f 4c 44 46 | 55 4e 0a 61 73 20 6f 62 |rks OLDF|UN.as ob|
|000002e0| 73 6f 6c 65 74 65 2e 1f | 0a 28 64 65 66 61 6c 69 |solete..|.(defali|
|000002f0| 61 73 20 27 64 65 66 69 | 6e 65 2d 6f 62 73 6f 6c |as 'defi|ne-obsol|
|00000300| 65 74 65 2d 66 75 6e 63 | 74 69 6f 6e 2d 61 6c 69 |ete-func|tion-ali|
|00000310| 61 73 20 23 5b 28 6f 6c | 64 66 75 6e 20 6e 65 77 |as #[(ol|dfun new|
|00000320| 66 75 6e 29 20 22 c0 09 | 5c 6e 5c 22 88 c3 09 5c |fun) "..|\n\"...\|
|00000330| 6e 5c 22 87 22 20 5b 64 | 65 66 69 6e 65 2d 66 75 |n\"." [d|efine-fu|
|00000340| 6e 63 74 69 6f 6e 20 6f | 6c 64 66 75 6e 20 6e 65 |nction o|ldfun ne|
|00000350| 77 66 75 6e 20 6d 61 6b | 65 2d 6f 62 73 6f 6c 65 |wfun mak|e-obsole|
|00000360| 74 65 5d 20 33 20 28 23 | 24 20 2e 20 36 30 33 29 |te] 3 (#|$ . 603)|
|00000370| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00000380| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00000390| 23 87 22 20 5b 64 65 66 | 69 6e 65 2d 6f 62 73 6f |#." [def|ine-obso|
|000003a0| 6c 65 74 65 2d 66 75 6e | 63 74 69 6f 6e 2d 61 6c |lete-fun|ction-al|
|000003b0| 69 61 73 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ias byte|-optimiz|
|000003c0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|000003d0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000003e0| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|000003f0| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00000400| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00000410| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00000420| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00000430| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000440| 5d 20 34 29 0a 23 40 31 | 36 36 20 44 65 66 69 6e |] 4).#@1|66 Defin|
|00000450| 65 20 4f 4c 44 46 55 4e | 20 61 73 20 61 20 63 6f |e OLDFUN| as a co|
|00000460| 6d 70 61 74 69 62 6c 65 | 20 61 6c 69 61 73 20 66 |mpatible| alias f|
|00000470| 6f 72 20 66 75 6e 63 74 | 69 6f 6e 20 4e 45 57 46 |or funct|ion NEWF|
|00000480| 55 4e 2e 0a 54 68 69 73 | 20 6d 61 6b 65 73 20 63 |UN..This| makes c|
|00000490| 61 6c 6c 69 6e 67 20 4f | 4c 44 46 55 4e 20 65 71 |alling O|LDFUN eq|
|000004a0| 75 69 76 61 6c 65 6e 74 | 20 74 6f 20 63 61 6c 6c |uivalent| to call|
|000004b0| 69 6e 67 20 4e 45 57 46 | 55 4e 20 61 6e 64 20 6d |ing NEWF|UN and m|
|000004c0| 61 72 6b 73 20 4f 4c 44 | 46 55 4e 0a 61 73 20 70 |arks OLD|FUN.as p|
|000004d0| 72 6f 76 69 64 65 64 20 | 66 6f 72 20 63 6f 6d 70 |rovided |for comp|
|000004e0| 61 74 69 62 69 6c 69 74 | 79 20 6f 6e 6c 79 2e 1f |atibilit|y only..|
|000004f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 69 |.(defali|as 'defi|
|00000500| 6e 65 2d 63 6f 6d 70 61 | 74 69 62 6c 65 2d 66 75 |ne-compa|tible-fu|
|00000510| 6e 63 74 69 6f 6e 2d 61 | 6c 69 61 73 20 23 5b 28 |nction-a|lias #[(|
|00000520| 6f 6c 64 66 75 6e 20 6e | 65 77 66 75 6e 29 20 22 |oldfun n|ewfun) "|
|00000530| c0 09 5c 6e 5c 22 88 c3 | 09 5c 6e 5c 22 87 22 20 |..\n\"..|.\n\"." |
|00000540| 5b 64 65 66 69 6e 65 2d | 66 75 6e 63 74 69 6f 6e |[define-|function|
|00000550| 20 6f 6c 64 66 75 6e 20 | 6e 65 77 66 75 6e 20 6d | oldfun |newfun m|
|00000560| 61 6b 65 2d 63 6f 6d 70 | 61 74 69 62 6c 65 5d 20 |ake-comp|atible] |
|00000570| 33 20 28 23 24 20 2e 20 | 31 30 39 39 29 5d 29 0a |3 (#$ . |1099)]).|
|00000580| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00000590| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|000005a0| 20 5b 64 65 66 69 6e 65 | 2d 63 6f 6d 70 61 74 69 | [define|-compati|
|000005b0| 62 6c 65 2d 66 75 6e 63 | 74 69 6f 6e 2d 61 6c 69 |ble-func|tion-ali|
|000005c0| 61 73 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |as byte-|optimize|
|000005d0| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|000005e0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|000005f0| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|00000600| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|00000610| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|00000620| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|00000630| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|00000640| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|00000650| 20 34 29 0a 23 40 33 30 | 38 20 44 65 66 69 6e 65 | 4).#@30|8 Define|
|00000660| 20 4f 4c 44 56 41 52 20 | 61 73 20 61 6e 20 6f 62 | OLDVAR |as an ob|
|00000670| 73 6f 6c 65 74 65 20 61 | 6c 69 61 73 20 66 6f 72 |solete a|lias for|
|00000680| 20 76 61 72 69 61 62 6c | 65 20 4e 45 57 56 41 52 | variabl|e NEWVAR|
|00000690| 2e 0a 54 68 69 73 20 6d | 61 6b 65 73 20 72 65 66 |..This m|akes ref|
|000006a0| 65 72 65 6e 63 69 6e 67 | 20 6f 72 20 73 65 74 74 |erencing| or sett|
|000006b0| 69 6e 67 20 4f 4c 44 56 | 41 52 20 65 71 75 69 76 |ing OLDV|AR equiv|
|000006c0| 61 6c 65 6e 74 20 74 6f | 20 72 65 66 65 72 65 6e |alent to| referen|
|000006d0| 63 69 6e 67 20 6f 72 0a | 73 65 74 74 69 6e 67 20 |cing or.|setting |
|000006e0| 4e 45 57 56 41 52 20 61 | 6e 64 20 6d 61 72 6b 73 |NEWVAR a|nd marks|
|000006f0| 20 4f 4c 44 56 41 52 20 | 61 73 20 6f 62 73 6f 6c | OLDVAR |as obsol|
|00000700| 65 74 65 2e 20 0a 49 66 | 20 4f 4c 44 56 41 52 20 |ete. .If| OLDVAR |
|00000710| 77 61 73 20 62 6f 75 6e | 64 20 61 6e 64 20 4e 45 |was boun|d and NE|
|00000720| 57 56 41 52 20 77 61 73 | 20 6e 6f 74 2c 20 53 65 |WVAR was| not, Se|
|00000730| 74 20 4e 45 57 56 41 52 | 20 74 6f 20 4f 4c 44 56 |t NEWVAR| to OLDV|
|00000740| 41 52 2e 0a 0a 4e 6f 74 | 65 3a 20 55 73 65 20 74 |AR...Not|e: Use t|
|00000750| 68 69 73 20 62 65 66 6f | 72 65 20 61 6e 79 20 6f |his befo|re any o|
|00000760| 74 68 65 72 20 72 65 66 | 65 72 65 6e 63 65 73 20 |ther ref|erences |
|00000770| 28 64 65 66 76 61 72 2f | 64 65 66 63 75 73 74 6f |(defvar/|defcusto|
|00000780| 6d 29 20 74 6f 20 4e 45 | 57 56 41 52 1f 0a 28 64 |m) to NE|WVAR..(d|
|00000790| 65 66 61 6c 69 61 73 20 | 27 64 65 66 69 6e 65 2d |efalias |'define-|
|000007a0| 6f 62 73 6f 6c 65 74 65 | 2d 76 61 72 69 61 62 6c |obsolete|-variabl|
|000007b0| 65 2d 61 6c 69 61 73 20 | 23 5b 28 6f 6c 64 76 61 |e-alias |#[(oldva|
|000007c0| 72 20 6e 65 77 76 61 72 | 29 20 22 c0 09 21 ad 84 |r newvar|) "..!..|
|000007d0| c0 5c 6e 21 3f c0 09 21 | ad 82 09 4a 1b 1c c5 09 |.\n!?..!|...J....|
|000007e0| 5c 6e 5c 22 88 c6 09 5c | 6e 5c 22 88 0c ad 83 5c |\n\"...\|n\"....\|
|000007f0| 6e 0b 4c 2a 87 22 20 5b | 62 6f 75 6e 64 70 20 6f |n.L*." [|boundp o|
|00000800| 6c 64 76 61 72 20 6e 65 | 77 76 61 72 20 76 61 6c |ldvar ne|wvar val|
|00000810| 75 65 20 6e 65 65 64 73 | 2d 73 65 74 74 69 6e 67 |ue needs|-setting|
|00000820| 20 64 65 66 76 61 72 61 | 6c 69 61 73 20 6d 61 6b | defvara|lias mak|
|00000830| 65 2d 6f 62 73 6f 6c 65 | 74 65 2d 76 61 72 69 61 |e-obsole|te-varia|
|00000840| 62 6c 65 5d 20 33 20 28 | 23 24 20 2e 20 31 36 32 |ble] 3 (|#$ . 162|
|00000850| 36 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |6)]).(by|te-code |
|00000860| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|00000870| c1 c6 23 87 22 20 5b 64 | 65 66 69 6e 65 2d 6f 62 |..#." [d|efine-ob|
|00000880| 73 6f 6c 65 74 65 2d 76 | 61 72 69 61 62 6c 65 2d |solete-v|ariable-|
|00000890| 61 6c 69 61 73 20 62 79 | 74 65 2d 6f 70 74 69 6d |alias by|te-optim|
|000008a0| 69 7a 65 72 20 28 6e 69 | 6c 20 62 79 74 65 2d 63 |izer (ni|l byte-c|
|000008b0| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|000008c0| 70 61 6e 64 29 20 65 72 | 72 6f 72 20 22 25 73 20 |pand) er|ror "%s |
|000008d0| 61 6c 72 65 61 64 79 20 | 68 61 73 20 61 20 62 79 |already |has a by|
|000008e0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 2c 20 63 61 |te-optim|izer, ca|
|000008f0| 6e 27 74 20 6d 61 6b 65 | 20 69 74 20 69 6e 6c 69 |n't make| it inli|
|00000900| 6e 65 22 20 70 75 74 20 | 62 79 74 65 2d 63 6f 6d |ne" put |byte-com|
|00000910| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000920| 6e 64 5d 20 34 29 0a 23 | 40 31 39 36 20 44 65 66 |nd] 4).#|@196 Def|
|00000930| 69 6e 65 20 4f 4c 44 56 | 41 52 20 61 73 20 61 20 |ine OLDV|AR as a |
|00000940| 63 6f 6d 70 61 74 69 62 | 6c 65 20 61 6c 69 61 73 |compatib|le alias|
|00000950| 20 66 6f 72 20 76 61 72 | 69 61 62 6c 65 20 4e 45 | for var|iable NE|
|00000960| 57 56 41 52 2e 0a 54 68 | 69 73 20 6d 61 6b 65 73 |WVAR..Th|is makes|
|00000970| 20 72 65 66 65 72 65 6e | 63 69 6e 67 20 6f 72 20 | referen|cing or |
|00000980| 73 65 74 74 69 6e 67 20 | 4f 4c 44 56 41 52 20 65 |setting |OLDVAR e|
|00000990| 71 75 69 76 61 6c 65 6e | 74 20 74 6f 20 72 65 66 |quivalen|t to ref|
|000009a0| 65 72 65 6e 63 69 6e 67 | 20 6f 72 0a 73 65 74 74 |erencing| or.sett|
|000009b0| 69 6e 67 20 4e 45 57 56 | 41 52 20 61 6e 64 20 6d |ing NEWV|AR and m|
|000009c0| 61 72 6b 73 20 4f 4c 44 | 56 41 52 20 61 73 20 70 |arks OLD|VAR as p|
|000009d0| 72 6f 76 69 64 65 64 20 | 66 6f 72 20 63 6f 6d 70 |rovided |for comp|
|000009e0| 61 74 69 62 69 6c 69 74 | 79 20 6f 6e 6c 79 2e 1f |atibilit|y only..|
|000009f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 69 |.(defali|as 'defi|
|00000a00| 6e 65 2d 63 6f 6d 70 61 | 74 69 62 6c 65 2d 76 61 |ne-compa|tible-va|
|00000a10| 72 69 61 62 6c 65 2d 61 | 6c 69 61 73 20 23 5b 28 |riable-a|lias #[(|
|00000a20| 6f 6c 64 76 61 72 20 6e | 65 77 76 61 72 29 20 22 |oldvar n|ewvar) "|
|00000a30| c0 09 5c 6e 5c 22 88 c3 | 09 5c 6e 5c 22 87 22 20 |..\n\"..|.\n\"." |
|00000a40| 5b 64 65 66 76 61 72 61 | 6c 69 61 73 20 6f 6c 64 |[defvara|lias old|
|00000a50| 76 61 72 20 6e 65 77 76 | 61 72 20 6d 61 6b 65 2d |var newv|ar make-|
|00000a60| 63 6f 6d 70 61 74 69 62 | 6c 65 2d 76 61 72 69 61 |compatib|le-varia|
|00000a70| 62 6c 65 5d 20 33 20 28 | 23 24 20 2e 20 32 33 34 |ble] 3 (|#$ . 234|
|00000a80| 39 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |9)]).(by|te-code |
|00000a90| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|00000aa0| c1 c6 23 88 c7 c8 c9 5c | 22 88 ca cb cc 5c 22 87 |..#....\|"....\".|
|00000ab0| 22 20 5b 64 65 66 69 6e | 65 2d 63 6f 6d 70 61 74 |" [defin|e-compat|
|00000ac0| 69 62 6c 65 2d 76 61 72 | 69 61 62 6c 65 2d 61 6c |ible-var|iable-al|
|00000ad0| 69 61 73 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ias byte|-optimiz|
|00000ae0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00000af0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000b00| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00000b10| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00000b20| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00000b30| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00000b40| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00000b50| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000b60| 20 6d 61 6b 65 2d 63 6f | 6d 70 61 74 69 62 6c 65 | make-co|mpatible|
|00000b70| 2d 76 61 72 69 61 62 6c | 65 20 77 69 6e 64 6f 77 |-variabl|e window|
|00000b80| 2d 73 79 73 74 65 6d 20 | 22 75 73 65 20 28 63 6f |-system |"use (co|
|00000b90| 6e 73 6f 6c 65 2d 74 79 | 70 65 29 22 20 6d 61 6b |nsole-ty|pe)" mak|
|00000ba0| 65 2d 6f 62 73 6f 6c 65 | 74 65 2d 76 61 72 69 61 |e-obsole|te-varia|
|00000bb0| 62 6c 65 20 6d 65 74 61 | 2d 66 6c 61 67 20 22 75 |ble meta|-flag "u|
|00000bc0| 73 65 20 74 68 65 20 60 | 73 65 74 2d 69 6e 70 75 |se the `|set-inpu|
|00000bd0| 74 2d 6d 6f 64 65 27 20 | 66 75 6e 63 74 69 6f 6e |t-mode' |function|
|00000be0| 20 69 6e 73 74 65 61 64 | 2e 22 5d 20 34 29 0a 23 | instead|."] 4).#|
|00000bf0| 40 34 36 20 52 65 74 75 | 72 6e 73 20 6e 6f 6e 2d |@46 Retu|rns non-|
|00000c00| 6e 69 6c 20 69 66 20 44 | 45 56 49 43 45 20 69 73 |nil if D|EVICE is|
|00000c10| 20 61 20 63 6f 6c 6f 72 | 20 64 65 76 69 63 65 2e | a color| device.|
|00000c20| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 78 2d 64 |..(defal|ias 'x-d|
|00000c30| 69 73 70 6c 61 79 2d 63 | 6f 6c 6f 72 2d 70 20 23 |isplay-c|olor-p #|
|00000c40| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 64 65 76 69 |[(&optio|nal devi|
|00000c50| 63 65 29 20 22 c0 09 21 | c2 61 87 22 20 5b 64 65 |ce) "..!|.a." [de|
|00000c60| 76 69 63 65 2d 63 6c 61 | 73 73 20 64 65 76 69 63 |vice-cla|ss devic|
|00000c70| 65 20 63 6f 6c 6f 72 5d | 20 32 20 28 23 24 20 2e |e color]| 2 (#$ .|
|00000c80| 20 33 30 36 30 29 5d 29 | 0a 28 62 79 74 65 2d 63 | 3060)])|.(byte-c|
|00000c90| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 c4 c1 5c 22 |ode "...|\"....\"|
|00000ca0| 88 c0 c1 c2 5c 22 87 22 | 20 5b 6d 61 6b 65 2d 63 |....\"."| [make-c|
|00000cb0| 6f 6d 70 61 74 69 62 6c | 65 20 78 2d 64 69 73 70 |ompatibl|e x-disp|
|00000cc0| 6c 61 79 2d 63 6f 6c 6f | 72 2d 70 20 64 65 76 69 |lay-colo|r-p devi|
|00000cd0| 63 65 2d 63 6c 61 73 73 | 20 64 65 66 69 6e 65 2d |ce-class| define-|
|00000ce0| 66 75 6e 63 74 69 6f 6e | 20 78 2d 63 6f 6c 6f 72 |function| x-color|
|00000cf0| 2d 64 69 73 70 6c 61 79 | 2d 70 5d 20 33 29 0a 23 |-display|-p] 3).#|
|00000d00| 40 35 30 20 52 65 74 75 | 72 6e 73 20 6e 6f 6e 2d |@50 Retu|rns non-|
|00000d10| 6e 69 6c 20 69 66 20 44 | 45 56 49 43 45 20 69 73 |nil if D|EVICE is|
|00000d20| 20 61 20 67 72 61 79 73 | 63 61 6c 65 20 64 65 76 | a grays|cale dev|
|00000d30| 69 63 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ice...(d|efalias |
|00000d40| 27 78 2d 64 69 73 70 6c | 61 79 2d 67 72 61 79 73 |'x-displ|ay-grays|
|00000d50| 63 61 6c 65 2d 70 20 23 | 5b 28 26 6f 70 74 69 6f |cale-p #|[(&optio|
|00000d60| 6e 61 6c 20 64 65 76 69 | 63 65 29 20 22 c0 09 21 |nal devi|ce) "..!|
|00000d70| c2 61 87 22 20 5b 64 65 | 76 69 63 65 2d 63 6c 61 |.a." [de|vice-cla|
|00000d80| 73 73 20 64 65 76 69 63 | 65 20 67 72 61 79 73 63 |ss devic|e graysc|
|00000d90| 61 6c 65 5d 20 32 20 28 | 23 24 20 2e 20 33 33 33 |ale] 2 (|#$ . 333|
|00000da0| 32 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |2)]).(by|te-code |
|00000db0| 22 c0 c1 c2 5c 22 88 c3 | c4 c1 5c 22 88 c0 c1 c2 |"...\"..|..\"....|
|00000dc0| 5c 22 88 c5 c6 1e 07 1e | 08 c3 0e 08 0e 07 5c 22 |\"......|......\"|
|00000dd0| 88 c0 0e 08 0e 07 5c 22 | 88 2a c9 ca 1e 07 1e 08 |......\"|.*......|
|00000de0| c3 0e 08 0e 07 5c 22 88 | c0 0e 08 0e 07 5c 22 88 |.....\".|.....\".|
|00000df0| 2a cb cc 1e 07 1e 08 c3 | 0e 08 0e 07 5c 22 88 c0 |*.......|....\"..|
|00000e00| 0e 08 0e 07 5c 22 88 2a | cd ce 1e 07 1e 08 c3 0e |....\".*|........|
|00000e10| 08 0e 07 5c 22 88 c0 0e | 08 0e 07 5c 22 88 2a cf |...\"...|...\".*.|
|00000e20| d0 1e 07 1e 08 c3 0e 08 | 0e 07 5c 22 88 d1 0e 08 |........|..\"....|
|00000e30| 0e 07 5c 22 88 2a d2 d3 | 1e 07 1e 08 c3 0e 08 0e |..\".*..|........|
|00000e40| 07 5c 22 88 d1 0e 08 0e | 07 5c 22 88 2a d4 d5 d6 |.\".....|.\".*...|
|00000e50| 5c 22 88 d1 d7 d8 5c 22 | 87 22 20 5b 6d 61 6b 65 |\"....\"|." [make|
|00000e60| 2d 63 6f 6d 70 61 74 69 | 62 6c 65 20 78 2d 64 69 |-compati|ble x-di|
|00000e70| 73 70 6c 61 79 2d 67 72 | 61 79 73 63 61 6c 65 2d |splay-gr|ayscale-|
|00000e80| 70 20 64 65 76 69 63 65 | 2d 63 6c 61 73 73 20 64 |p device|-class d|
|00000e90| 65 66 69 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 20 78 |efine-fu|nction x|
|00000ea0| 2d 67 72 61 79 73 63 61 | 6c 65 2d 64 69 73 70 6c |-graysca|le-displ|
|00000eb0| 61 79 2d 70 20 78 2d 64 | 69 73 70 6c 61 79 2d 70 |ay-p x-d|isplay-p|
|00000ec0| 69 78 65 6c 2d 77 69 64 | 74 68 20 64 65 76 69 63 |ixel-wid|th devic|
|00000ed0| 65 2d 70 69 78 65 6c 2d | 77 69 64 74 68 20 6e 65 |e-pixel-|width ne|
|00000ee0| 77 66 75 6e 20 6f 6c 64 | 66 75 6e 20 78 2d 64 69 |wfun old|fun x-di|
|00000ef0| 73 70 6c 61 79 2d 70 69 | 78 65 6c 2d 68 65 69 67 |splay-pi|xel-heig|
|00000f00| 68 74 20 64 65 76 69 63 | 65 2d 70 69 78 65 6c 2d |ht devic|e-pixel-|
|00000f10| 68 65 69 67 68 74 20 78 | 2d 64 69 73 70 6c 61 79 |height x|-display|
|00000f20| 2d 70 6c 61 6e 65 73 20 | 64 65 76 69 63 65 2d 62 |-planes |device-b|
|00000f30| 69 74 70 6c 61 6e 65 73 | 20 78 2d 64 69 73 70 6c |itplanes| x-displ|
|00000f40| 61 79 2d 63 6f 6c 6f 72 | 2d 63 65 6c 6c 73 20 64 |ay-color|-cells d|
|00000f50| 65 76 69 63 65 2d 63 6f | 6c 6f 72 2d 63 65 6c 6c |evice-co|lor-cell|
|00000f60| 73 20 62 61 75 64 2d 72 | 61 74 65 20 64 65 76 69 |s baud-r|ate devi|
|00000f70| 63 65 2d 62 61 75 64 2d | 72 61 74 65 20 6d 61 6b |ce-baud-|rate mak|
|00000f80| 65 2d 6f 62 73 6f 6c 65 | 74 65 20 6d 65 6e 75 2d |e-obsole|te menu-|
|00000f90| 65 76 65 6e 74 2d 70 20 | 6d 69 73 63 2d 75 73 65 |event-p |misc-use|
|00000fa0| 72 2d 65 76 65 6e 74 2d | 70 20 6d 61 6b 65 2d 6f |r-event-|p make-o|
|00000fb0| 62 73 6f 6c 65 74 65 2d | 76 61 72 69 61 62 6c 65 |bsolete-|variable|
|00000fc0| 20 75 6e 72 65 61 64 2d | 63 6f 6d 6d 61 6e 64 2d | unread-|command-|
|00000fd0| 63 68 61 72 20 75 6e 72 | 65 61 64 2d 63 6f 6d 6d |char unr|ead-comm|
|00000fe0| 61 6e 64 2d 65 76 65 6e | 74 73 20 73 6c 65 65 70 |and-even|ts sleep|
|00000ff0| 2d 66 6f 72 2d 6d 69 6c | 6c 69 73 65 63 73 20 22 |-for-mil|lisecs "|
|00001000| 75 73 65 20 73 6c 65 65 | 70 2d 66 6f 72 20 77 69 |use slee|p-for wi|
|00001010| 74 68 20 61 20 66 6c 6f | 61 74 22 5d 20 33 29 0a |th a flo|at"] 3).|
|00001020| 23 40 36 31 20 4f 62 73 | 6f 6c 65 74 65 2e 20 20 |#@61 Obs|olete.  |
|00001030| 52 65 74 75 72 6e 73 20 | 74 68 65 20 60 64 61 74 |Returns |the `dat|
|00001040| 61 27 20 70 72 6f 70 65 | 72 74 79 20 6f 66 20 74 |a' prope|rty of t|
|00001050| 68 65 20 67 69 76 65 6e | 20 65 78 74 65 6e 74 2e |he given| extent.|
|00001060| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 78 74 |..(defal|ias 'ext|
|00001070| 65 6e 74 2d 64 61 74 61 | 20 23 5b 28 65 78 74 65 |ent-data| #[(exte|
|00001080| 6e 74 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 65 78 |nt) "...|\"." [ex|
|00001090| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 65 78 |tent-pro|perty ex|
|000010a0| 74 65 6e 74 20 64 61 74 | 61 5d 20 33 20 28 23 24 |tent dat|a] 3 (#$|
|000010b0| 20 2e 20 34 31 33 33 29 | 5d 29 0a 28 6d 61 6b 65 | . 4133)|]).(make|
|000010c0| 2d 6f 62 73 6f 6c 65 74 | 65 20 27 73 65 74 2d 77 |-obsolet|e 'set-w|
|000010d0| 69 6e 64 6f 77 2d 64 6f | 74 20 27 73 65 74 2d 77 |indow-do|t 'set-w|
|000010e0| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 29 0a 23 40 35 |indow-po|int).#@5|
|000010f0| 38 20 4f 62 73 6f 6c 65 | 74 65 2e 20 20 53 65 74 |8 Obsole|te.  Set|
|00001100| 73 20 74 68 65 20 60 64 | 61 74 61 27 20 70 72 6f |s the `d|ata' pro|
|00001110| 70 65 72 74 79 20 6f 66 | 20 74 68 65 20 67 69 76 |perty of| the giv|
|00001120| 65 6e 20 65 78 74 65 6e | 74 2e 1f 0a 28 64 65 66 |en exten|t...(def|
|00001130| 61 6c 69 61 73 20 27 73 | 65 74 2d 65 78 74 65 6e |alias 's|et-exten|
|00001140| 74 2d 64 61 74 61 20 23 | 5b 28 65 78 74 65 6e 74 |t-data #|[(extent|
|00001150| 20 64 61 74 61 29 20 22 | c0 09 c2 5c 6e 23 87 22 | data) "|...\n#."|
|00001160| 20 5b 73 65 74 2d 65 78 | 74 65 6e 74 2d 70 72 6f | [set-ex|tent-pro|
|00001170| 70 65 72 74 79 20 65 78 | 74 65 6e 74 20 64 61 74 |perty ex|tent dat|
|00001180| 61 5d 20 34 20 28 23 24 | 20 2e 20 34 33 33 38 29 |a] 4 (#$| . 4338)|
|00001190| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000011a0| c1 c2 5c 22 88 c3 c4 1d | 1e 06 c7 0e 06 0d 5c 22 |..\"....|......\"|
|000011b0| 88 c0 0e 06 0d 5c 22 88 | 2a c0 87 22 20 5b 6d 61 |.....\".|*.." [ma|
|000011c0| 6b 65 2d 6f 62 73 6f 6c | 65 74 65 20 73 65 74 2d |ke-obsol|ete set-|
|000011d0| 65 78 74 65 6e 74 2d 64 | 61 74 61 20 73 65 74 2d |extent-d|ata set-|
|000011e0| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|000011f0| 65 78 74 65 6e 74 2d 62 | 75 66 66 65 72 20 65 78 |extent-b|uffer ex|
|00001200| 74 65 6e 74 2d 6f 62 6a | 65 63 74 20 6e 65 77 66 |tent-obj|ect newf|
|00001210| 75 6e 20 6f 6c 64 66 75 | 6e 20 64 65 66 69 6e 65 |un oldfu|n define|
|00001220| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 33 29 0a 23 40 |-functio|n] 3).#@|
|00001230| 32 20 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |2 ..(def|alias 's|
|00001240| 65 74 2d 65 78 74 65 6e | 74 2d 61 74 74 72 69 62 |et-exten|t-attrib|
|00001250| 75 74 65 20 23 5b 28 65 | 78 74 65 6e 74 20 61 74 |ute #[(e|xtent at|
|00001260| 74 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 63 6c 65 |tr &opti|onal cle|
|00001270| 61 72 70 29 20 22 08 c1 | 61 ab 86 c2 0b c4 c5 23 |arp) "..|a......#|
|00001280| 87 08 c6 61 ab 86 c2 0b | c7 c8 23 87 08 c9 61 ab |...a....|..#...a.|
|00001290| 86 c2 0b c4 c8 23 87 08 | ca 61 ab 86 c2 0b cb c8 |.....#..|.a......|
|000012a0| 23 87 c2 0b 08 c5 23 87 | 22 20 5b 61 74 74 72 20 |#.....#.|" [attr |
|000012b0| 77 72 69 74 65 2d 70 72 | 6f 74 65 63 74 65 64 20 |write-pr|otected |
|000012c0| 73 65 74 2d 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |set-exte|nt-prope|
|000012d0| 72 74 79 20 65 78 74 65 | 6e 74 20 72 65 61 64 2d |rty exte|nt read-|
|000012e0| 6f 6e 6c 79 20 74 20 75 | 6e 68 69 67 68 6c 69 67 |only t u|nhighlig|
|000012f0| 68 74 20 6d 6f 75 73 65 | 2d 66 61 63 65 20 6e 69 |ht mouse|-face ni|
|00001300| 6c 20 77 72 69 74 61 62 | 6c 65 20 76 69 73 69 62 |l writab|le visib|
|00001310| 6c 65 20 69 6e 76 69 73 | 69 62 6c 65 5d 20 34 20 |le invis|ible] 4 |
|00001320| 28 23 24 20 2e 20 34 36 | 35 38 29 5d 29 0a 28 6d |(#$ . 46|58)]).(m|
|00001330| 61 6b 65 2d 6f 62 73 6f | 6c 65 74 65 20 27 73 65 |ake-obso|lete 'se|
|00001340| 74 2d 65 78 74 65 6e 74 | 2d 61 74 74 72 69 62 75 |t-extent|-attribu|
|00001350| 74 65 20 27 73 65 74 2d | 65 78 74 65 6e 74 2d 70 |te 'set-|extent-p|
|00001360| 72 6f 70 65 72 74 79 29 | 0a 23 40 32 20 1f 0a 28 |roperty)|.#@2 ..(|
|00001370| 64 65 66 61 6c 69 61 73 | 20 27 65 78 74 65 6e 74 |defalias| 'extent|
|00001380| 2d 67 6c 79 70 68 20 23 | 5b 28 65 78 74 65 6e 74 |-glyph #|[(extent|
|00001390| 29 20 22 c0 09 21 ae 83 | c2 09 21 87 22 20 5b 65 |) "..!..|..!." [e|
|000013a0| 78 74 65 6e 74 2d 62 65 | 67 69 6e 2d 67 6c 79 70 |xtent-be|gin-glyp|
|000013b0| 68 20 65 78 74 65 6e 74 | 20 65 78 74 65 6e 74 2d |h extent| extent-|
|000013c0| 65 6e 64 2d 67 6c 79 70 | 68 5d 20 32 20 28 23 24 |end-glyp|h] 2 (#$|
|000013d0| 20 2e 20 34 39 37 33 29 | 5d 29 0a 28 6d 61 6b 65 | . 4973)|]).(make|
|000013e0| 2d 6f 62 73 6f 6c 65 74 | 65 20 27 65 78 74 65 6e |-obsolet|e 'exten|
|000013f0| 74 2d 67 6c 79 70 68 20 | 22 75 73 65 20 60 65 78 |t-glyph |"use `ex|
|00001400| 74 65 6e 74 2d 62 65 67 | 69 6e 2d 67 6c 79 70 68 |tent-beg|in-glyph|
|00001410| 27 20 6f 72 20 60 65 78 | 74 65 6e 74 2d 65 6e 64 |' or `ex|tent-end|
|00001420| 2d 67 6c 79 70 68 27 20 | 69 6e 73 74 65 61 64 2e |-glyph' |instead.|
|00001430| 22 29 0a 23 40 32 20 1f | 0a 28 64 65 66 61 6c 69 |").#@2 .|.(defali|
|00001440| 61 73 20 27 65 78 74 65 | 6e 74 2d 6c 61 79 6f 75 |as 'exte|nt-layou|
|00001450| 74 20 23 5b 28 65 78 74 | 65 6e 74 29 20 22 c0 09 |t #[(ext|ent) "..|
|00001460| 21 87 22 20 5b 65 78 74 | 65 6e 74 2d 62 65 67 69 |!." [ext|ent-begi|
|00001470| 6e 2d 67 6c 79 70 68 2d | 6c 61 79 6f 75 74 20 65 |n-glyph-|layout e|
|00001480| 78 74 65 6e 74 5d 20 32 | 20 28 23 24 20 2e 20 35 |xtent] 2| (#$ . 5|
|00001490| 31 37 35 29 5d 29 0a 28 | 6d 61 6b 65 2d 6f 62 73 |175)]).(|make-obs|
|000014a0| 6f 6c 65 74 65 20 27 65 | 78 74 65 6e 74 2d 6c 61 |olete 'e|xtent-la|
|000014b0| 79 6f 75 74 20 22 75 73 | 65 20 60 65 78 74 65 6e |yout "us|e `exten|
|000014c0| 74 2d 62 65 67 69 6e 2d | 67 6c 79 70 68 2d 6c 61 |t-begin-|glyph-la|
|000014d0| 79 6f 75 74 27 20 6f 72 | 20 60 65 78 74 65 6e 74 |yout' or| `extent|
|000014e0| 2d 65 6e 64 2d 67 6c 79 | 70 68 2d 6c 61 79 6f 75 |-end-gly|ph-layou|
|000014f0| 74 27 20 69 6e 73 74 65 | 61 64 2e 22 29 0a 23 40 |t' inste|ad.").#@|
|00001500| 32 20 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |2 ..(def|alias 's|
|00001510| 65 74 2d 65 78 74 65 6e | 74 2d 6c 61 79 6f 75 74 |et-exten|t-layout|
|00001520| 20 23 5b 28 65 78 74 65 | 6e 74 20 6c 61 79 6f 75 | #[(exte|nt layou|
|00001530| 74 29 20 22 c0 09 5c 6e | 5c 22 87 22 20 5b 73 65 |t) "..\n|\"." [se|
|00001540| 74 2d 65 78 74 65 6e 74 | 2d 62 65 67 69 6e 2d 67 |t-extent|-begin-g|
|00001550| 6c 79 70 68 2d 6c 61 79 | 6f 75 74 20 65 78 74 65 |lyph-lay|out exte|
|00001560| 6e 74 20 6c 61 79 6f 75 | 74 5d 20 33 20 28 23 24 |nt layou|t] 3 (#$|
|00001570| 20 2e 20 35 33 37 38 29 | 5d 29 0a 28 62 79 74 65 | . 5378)|]).(byte|
|00001580| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c3 c4 1d |-code ".|..\"....|
|00001590| 1e 06 c7 0e 06 21 ad 84 | c7 0d 21 3f c7 0e 06 21 |.....!..|..!?...!|
|000015a0| ad 83 0e 06 4a 1e 08 1e | 09 ca 0e 06 0d 5c 22 88 |....J...|.....\".|
|000015b0| cb 0e 06 0d 5c 22 88 0e | 09 ad 84 0d 0e 08 4c 2a |....\"..|......L*|
|000015c0| 88 2a cc cd 1d 1e 06 c7 | 0e 06 21 ad 84 c7 0d 21 |.*......|..!....!|
|000015d0| 3f c7 0e 06 21 ad 83 0e | 06 4a 1e 08 1e 09 ca 0e |?...!...|.J......|
|000015e0| 06 0d 5c 22 88 cb 0e 06 | 0d 5c 22 88 0e 09 ad 84 |..\"....|.\".....|
|000015f0| 0d 0e 08 4c 2a 88 2a ce | cf 1d 1e 06 c7 0e 06 21 |...L*.*.|.......!|
|00001600| ad 84 c7 0d 21 3f c7 0e | 06 21 ad 83 0e 06 4a 1e |....!?..|.!....J.|
|00001610| 08 1e 09 ca 0e 06 0d 5c | 22 88 cb 0e 06 0d 5c 22 |.......\|".....\"|
|00001620| 88 0e 09 ad 84 0d 0e 08 | 4c 2a 88 2a d0 d1 1d 1e |........|L*.*....|
|00001630| 06 c7 0e 06 21 ad 84 c7 | 0d 21 3f c7 0e 06 21 ad |....!...|.!?...!.|
|00001640| 83 0e 06 4a 1e 08 1e 09 | ca 0e 06 0d 5c 22 88 cb |...J....|....\"..|
|00001650| 0e 06 0d 5c 22 88 0e 09 | ad 84 0d 0e 08 4c 2a 88 |...\"...|.....L*.|
|00001660| 2a d2 d3 1d 1e 06 c7 0e | 06 21 ad 84 c7 0d 21 3f |*.......|.!....!?|
|00001670| c7 0e 06 21 ad 83 0e 06 | 4a 1e 08 1e 09 ca 0e 06 |...!....|J.......|
|00001680| 0d 5c 22 88 cb 0e 06 0d | 5c 22 88 0e 09 ad 84 0d |.\".....|\"......|
|00001690| 0e 08 4c 2a 88 2a d4 d5 | 1e 16 1e 17 d8 0e 17 0e |..L*.*..|........|
|000016a0| 16 5c 22 88 c0 0e 17 0e | 16 5c 22 88 2a d9 da 1e |.\".....|.\".*...|
|000016b0| 16 1e 17 d8 0e 17 0e 16 | 5c 22 88 c0 0e 17 0e 16 |........|\"......|
|000016c0| 5c 22 88 2a db dc 1e 16 | 1e 17 d8 0e 17 0e 16 5c |\".*....|.......\|
|000016d0| 22 88 c0 0e 17 0e 16 5c | 22 88 2a dd de 1e 16 1e |"......\|".*.....|
|000016e0| 17 d8 0e 17 0e 16 5c 22 | 88 c0 0e 17 0e 16 5c 22 |......\"|......\"|
|000016f0| 88 2a df e0 1e 16 1e 17 | d8 0e 17 0e 16 5c 22 88 |.*......|.....\".|
|00001700| c0 0e 17 0e 16 5c 22 88 | 2a e1 e2 1e 16 1e 17 d8 |.....\".|*.......|
|00001710| 0e 17 0e 16 5c 22 88 c0 | 0e 17 0e 16 5c 22 88 2a |....\"..|....\".*|
|00001720| e3 e4 1e 16 1e 17 d8 0e | 17 0e 16 5c 22 88 c0 0e |........|...\"...|
|00001730| 17 0e 16 5c 22 88 2a e5 | e6 1e 16 1e 17 d8 0e 17 |...\".*.|........|
|00001740| 0e 16 5c 22 88 c0 0e 17 | 0e 16 5c 22 88 2a e7 e8 |..\"....|..\".*..|
|00001750| 1e 16 1e 17 d8 0e 17 0e | 16 5c 22 88 c0 0e 17 0e |........|.\".....|
|00001760| 16 5c 22 88 2a e9 ea 1e | 16 1e 17 d8 0e 17 0e 16 |.\".*...|........|
|00001770| 5c 22 88 c0 0e 17 0e 16 | 5c 22 88 2a eb e4 1e 16 |\"......|\".*....|
|00001780| 1e 17 d8 0e 17 0e 16 5c | 22 88 c0 0e 17 0e 16 5c |.......\|"......\|
|00001790| 22 88 2a ec ed 1e 16 1e | 17 d8 0e 17 0e 16 5c 22 |".*.....|......\"|
|000017a0| 88 c0 0e 17 0e 16 5c 22 | 88 2a ee ef 1e 16 1e 17 |......\"|.*......|
|000017b0| d8 0e 17 0e 16 5c 22 88 | c0 0e 17 0e 16 5c 22 88 |.....\".|.....\".|
|000017c0| 2a f0 f1 1e 16 1e 17 d8 | 0e 17 0e 16 5c 22 88 c0 |*.......|....\"..|
|000017d0| 0e 17 0e 16 5c 22 88 2a | f2 f3 1e 16 1e 17 d8 0e |....\".*|........|
|000017e0| 17 0e 16 5c 22 88 c0 0e | 17 0e 16 5c 22 88 2a f4 |...\"...|...\".*.|
|000017f0| f5 1e 16 1e 17 d8 0e 17 | 0e 16 5c 22 88 c0 0e 17 |........|..\"....|
|00001800| 0e 16 5c 22 88 2a f6 f7 | 1e 16 1e 17 d8 0e 17 0e |..\".*..|........|
|00001810| 16 5c 22 88 c0 0e 17 0e | 16 5c 22 88 2a f8 f9 1e |.\".....|.\".*...|
|00001820| 16 1e 17 d8 0e 17 0e 16 | 5c 22 88 c0 0e 17 0e 16 |........|\"......|
|00001830| 5c 22 88 2a fa fb 1e 16 | 1e 17 d8 0e 17 0e 16 5c |\".*....|.......\|
|00001840| 22 88 c0 0e 17 0e 16 5c | 22 88 2a fc fd 1e 16 1e |"......\|".*.....|
|00001850| 17 d8 0e 17 0e 16 5c 22 | 88 c0 0e 17 0e 16 5c 22 |......\"|......\"|
|00001860| 88 2a fe ff 1e 16 1e 17 | d8 0e 17 0e 16 5c 22 88 |.*......|.....\".|
|00001870| c0 0e 17 0e 16 5c 22 88 | 2a 81 40 00 81 41 00 1e |.....\".|*.@..A..|
|00001880| 16 1e 17 d8 0e 17 0e 16 | 5c 22 88 c0 0e 17 0e 16 |........|\"......|
|00001890| 5c 22 88 2a 81 42 00 81 | 43 00 1e 16 1e 17 d8 0e |\".*.B..|C.......|
|000018a0| 17 0e 16 5c 22 88 c0 0e | 17 0e 16 5c 22 88 2a 81 |...\"...|...\".*.|
|000018b0| 44 00 81 45 00 1e 16 1e | 17 d8 0e 17 0e 16 5c 22 |D..E....|......\"|
|000018c0| 88 c0 0e 17 0e 16 5c 22 | 88 2a 81 46 00 81 47 00 |......\"|.*.F..G.|
|000018d0| 1e 16 1e 17 d8 0e 17 0e | 16 5c 22 88 c0 0e 17 0e |........|.\".....|
|000018e0| 16 5c 22 88 2a 81 48 00 | 81 49 00 1e 16 1e 17 d8 |.\".*.H.|.I......|
|000018f0| 0e 17 0e 16 5c 22 88 c0 | 0e 17 0e 16 5c 22 88 2a |....\"..|....\".*|
|00001900| 81 4a 00 81 4b 00 1e 16 | 1e 17 d8 0e 17 0e 16 5c |.J..K...|.......\|
|00001910| 22 88 c0 0e 17 0e 16 5c | 22 88 2a 81 4c 00 81 4d |"......\|".*.L..M|
|00001920| 00 1e 16 1e 17 d8 0e 17 | 0e 16 5c 22 88 c0 0e 17 |........|..\"....|
|00001930| 0e 16 5c 22 88 2a 81 4e | 00 81 4f 00 1e 16 1e 17 |..\".*.N|..O.....|
|00001940| d8 0e 17 0e 16 5c 22 88 | c0 0e 17 0e 16 5c 22 88 |.....\".|.....\".|
|00001950| 2a 81 50 00 81 51 00 1e | 16 1e 17 d8 0e 17 0e 16 |*.P..Q..|........|
|00001960| 5c 22 88 c0 0e 17 0e 16 | 5c 22 88 2a 81 52 00 81 |\"......|\".*.R..|
|00001970| 53 00 1e 16 1e 17 d8 0e | 17 0e 16 5c 22 88 c0 0e |S.......|...\"...|
|00001980| 17 0e 16 5c 22 88 2a 81 | 54 00 81 55 00 1e 16 1e |...\".*.|T..U....|
|00001990| 17 d8 0e 17 0e 16 5c 22 | 88 c0 0e 17 0e 16 5c 22 |......\"|......\"|
|000019a0| 88 2a 81 56 00 81 57 00 | 1e 16 1e 17 d8 0e 17 0e |.*.V..W.|........|
|000019b0| 16 5c 22 88 c0 0e 17 0e | 16 5c 22 88 2a 81 58 00 |.\".....|.\".*.X.|
|000019c0| 81 59 00 1e 16 1e 17 d8 | 0e 17 0e 16 5c 22 88 c0 |.Y......|....\"..|
|000019d0| 0e 17 0e 16 5c 22 88 2a | 81 5a 00 81 5b 00 1e 16 |....\".*|.Z..[...|
|000019e0| 1e 17 d8 0e 17 0e 16 5c | 22 88 c0 0e 17 0e 16 5c |.......\|"......\|
|000019f0| 22 88 2a 81 5c 5c 00 81 | 5d 00 1e 16 1e 17 d8 0e |".*.\\..|].......|
|00001a00| 17 0e 16 5c 22 88 c0 0e | 17 0e 16 5c 22 88 2a 81 |...\"...|...\".*.|
|00001a10| 5e 00 81 5f 00 1e 16 1e | 17 d8 0e 17 0e 16 5c 22 |^.._....|......\"|
|00001a20| 88 c0 0e 17 0e 16 5c 22 | 88 2a 81 60 00 81 61 00 |......\"|.*.`..a.|
|00001a30| 1e 16 1e 17 d8 0e 17 0e | 16 5c 22 88 c0 0e 17 0e |........|.\".....|
|00001a40| 16 5c 22 88 2a 81 62 00 | 81 63 00 1e 16 1e 17 d8 |.\".*.b.|.c......|
|00001a50| 0e 17 0e 16 5c 22 88 c0 | 0e 17 0e 16 5c 22 88 2a |....\"..|....\".*|
|00001a60| 81 64 00 81 65 00 1e 16 | 1e 17 d8 0e 17 0e 16 5c |.d..e...|.......\|
|00001a70| 22 88 c0 0e 17 0e 16 5c | 22 88 2a 81 66 00 81 67 |"......\|".*.f..g|
|00001a80| 00 1e 16 1e 17 d8 0e 17 | 0e 16 5c 22 88 c0 0e 17 |........|..\"....|
|00001a90| 0e 16 5c 22 88 2a 81 68 | 00 81 69 00 1e 16 1e 17 |..\".*.h|..i.....|
|00001aa0| d8 0e 17 0e 16 5c 22 88 | c0 0e 17 0e 16 5c 22 88 |.....\".|.....\".|
|00001ab0| 2a 81 6a 00 81 6b 00 1e | 16 1e 17 d8 0e 17 0e 16 |*.j..k..|........|
|00001ac0| 5c 22 88 c0 0e 17 0e 16 | 5c 22 88 2a 81 6c 00 81 |\"......|\".*.l..|
|00001ad0| 6d 00 1e 16 1e 17 d8 0e | 17 0e 16 5c 22 88 c0 0e |m.......|...\"...|
|00001ae0| 17 0e 16 5c 22 88 2a 81 | 6e 00 81 6f 00 1e 16 1e |...\".*.|n..o....|
|00001af0| 17 d8 0e 17 0e 16 5c 22 | 88 c0 0e 17 0e 16 5c 22 |......\"|......\"|
|00001b00| 88 2a 81 70 00 81 71 00 | 1e 16 1e 17 d8 0e 17 0e |.*.p..q.|........|
|00001b10| 16 5c 22 88 c0 0e 17 0e | 16 5c 22 88 2a 81 72 00 |.\".....|.\".*.r.|
|00001b20| 81 73 00 1e 16 1e 17 d8 | 0e 17 0e 16 5c 22 88 c0 |.s......|....\"..|
|00001b30| 0e 17 0e 16 5c 22 88 2a | 81 74 00 81 75 00 1e 16 |....\".*|.t..u...|
|00001b40| 1e 17 d8 0e 17 0e 16 5c | 22 88 c0 0e 17 0e 16 5c |.......\|"......\|
|00001b50| 22 88 2a 81 76 00 81 77 | 00 1e 16 1e 17 d8 0e 17 |".*.v..w|........|
|00001b60| 0e 16 5c 22 88 c0 0e 17 | 0e 16 5c 22 88 2a 81 78 |..\"....|..\".*.x|
|00001b70| 00 81 79 00 1e 16 1e 17 | d8 0e 17 0e 16 5c 22 88 |..y.....|.....\".|
|00001b80| c0 0e 17 0e 16 5c 22 88 | 2a 81 7a 00 81 7b 00 1e |.....\".|*.z..{..|
|00001b90| 16 1e 17 d8 0e 17 0e 16 | 5c 22 88 c0 0e 17 0e 16 |........|\"......|
|00001ba0| 5c 22 88 2a 81 7c 00 81 | 7b 00 1e 16 1e 17 d8 0e |\".*.|..|{.......|
|00001bb0| 17 0e 16 5c 22 88 c0 0e | 17 0e 16 5c 22 88 2a 81 |...\"...|...\".*.|
|00001bc0| 7d 00 81 7e 00 1d 1e 06 | c7 0e 06 21 ad 84 c7 0d |}..~....|...!....|
|00001bd0| 21 3f c7 0e 06 21 ad 83 | 0e 06 4a 1e 08 1e 09 ca |!?...!..|..J.....|
|00001be0| 0e 06 0d 5c 22 88 cb 0e | 06 0d 5c 22 88 0e 09 ad |...\"...|..\"....|
|00001bf0| 84 0d 0e 08 4c 2a 88 2a | 81 7f 00 81 80 00 1d 1e |....L*.*|........|
|00001c00| 06 c7 0e 06 21 ad 84 c7 | 0d 21 3f c7 0e 06 21 ad |....!...|.!?...!.|
|00001c10| 83 0e 06 4a 1e 08 1e 09 | ca 0e 06 0d 5c 22 88 cb |...J....|....\"..|
|00001c20| 0e 06 0d 5c 22 88 0e 09 | ad 84 0d 0e 08 4c 2a 88 |...\"...|.....L*.|
|00001c30| 2a 81 81 00 81 82 00 1d | 1e 06 c7 0e 06 21 ad 84 |*.......|.....!..|
|00001c40| c7 0d 21 3f c7 0e 06 21 | ad 83 0e 06 4a 1e 08 1e |..!?...!|....J...|
|00001c50| 09 ca 0e 06 0d 5c 22 88 | cb 0e 06 0d 5c 22 88 0e |.....\".|....\"..|
|00001c60| 09 ad 84 0d 0e 08 4c 2a | 88 2a 81 83 00 81 84 00 |......L*|.*......|
|00001c70| 1d 1e 06 c7 0e 06 21 ad | 84 c7 0d 21 3f c7 0e 06 |......!.|...!?...|
|00001c80| 21 ad 83 0e 06 4a 1e 08 | 1e 09 ca 0e 06 0d 5c 22 |!....J..|......\"|
|00001c90| 88 cb 0e 06 0d 5c 22 88 | 0e 09 ad 84 0d 0e 08 4c |.....\".|.......L|
|00001ca0| 2a 88 2a 81 85 00 81 86 | 00 1d 1e 06 c7 0e 06 21 |*.*.....|.......!|
|00001cb0| ad 84 c7 0d 21 3f c7 0e | 06 21 ad 83 0e 06 4a 1e |....!?..|.!....J.|
|00001cc0| 08 1e 09 ca 0e 06 0d 5c | 22 88 cb 0e 06 0d 5c 22 |.......\|".....\"|
|00001cd0| 88 0e 09 ad 84 0d 0e 08 | 4c 2a 88 2a 81 87 00 81 |........|L*.*....|
|00001ce0| 88 00 1d 1e 06 c7 0e 06 | 21 ad 84 c7 0d 21 3f c7 |........|!....!?.|
|00001cf0| 0e 06 21 ad 83 0e 06 4a | 1e 08 1e 09 ca 0e 06 0d |..!....J|........|
|00001d00| 5c 22 88 cb 0e 06 0d 5c | 22 88 0e 09 ad 84 0d 0e |\".....\|".......|
|00001d10| 08 4c 2a 88 2a 81 89 00 | 81 8a 00 1d 1e 06 c7 0e |.L*.*...|........|
|00001d20| 06 21 ad 84 c7 0d 21 3f | c7 0e 06 21 ad 83 0e 06 |.!....!?|...!....|
|00001d30| 4a 1e 08 1e 09 ca 0e 06 | 0d 5c 22 88 cb 0e 06 0d |J.......|.\".....|
|00001d40| 5c 22 88 0e 09 ad 84 0d | 0e 08 4c 2a 88 2a 81 8b |\"......|..L*.*..|
|00001d50| 00 81 8c 00 1d 1e 06 c7 | 0e 06 21 ad 84 c7 0d 21 |........|..!....!|
|00001d60| 3f c7 0e 06 21 ad 83 0e | 06 4a 1e 08 1e 09 ca 0e |?...!...|.J......|
|00001d70| 06 0d 5c 22 88 cb 0e 06 | 0d 5c 22 88 0e 09 ad 84 |..\"....|.\".....|
|00001d80| 0d 0e 08 4c 2a 88 2a 81 | 8d 00 81 8e 00 1d 1e 06 |...L*.*.|........|
|00001d90| c7 0e 06 21 ad 84 c7 0d | 21 3f c7 0e 06 21 ad 83 |...!....|!?...!..|
|00001da0| 0e 06 4a 1e 08 1e 09 ca | 0e 06 0d 5c 22 88 cb 0e |..J.....|...\"...|
|00001db0| 06 0d 5c 22 88 0e 09 ad | 84 0d 0e 08 4c 2a 88 2a |..\"....|....L*.*|
|00001dc0| 81 8f 00 81 90 00 1d 1e | 06 c7 0e 06 21 ad 84 c7 |........|....!...|
|00001dd0| 0d 21 3f c7 0e 06 21 ad | 83 0e 06 4a 1e 08 1e 09 |.!?...!.|...J....|
|00001de0| ca 0e 06 0d 5c 22 88 cb | 0e 06 0d 5c 22 88 0e 09 |....\"..|...\"...|
|00001df0| ad 84 0d 0e 08 4c 2a 88 | 2a 81 91 00 81 92 00 1d |.....L*.|*.......|
|00001e00| 1e 06 c7 0e 06 21 ad 84 | c7 0d 21 3f c7 0e 06 21 |.....!..|..!?...!|
|00001e10| ad 83 0e 06 4a 1e 08 1e | 09 ca 0e 06 0d 5c 22 88 |....J...|.....\".|
|00001e20| cb 0e 06 0d 5c 22 88 0e | 09 ad 84 0d 0e 08 4c 2a |....\"..|......L*|
|00001e30| 88 2a 81 93 00 81 94 00 | 1d 1e 06 c7 0e 06 21 ad |.*......|......!.|
|00001e40| 84 c7 0d 21 3f c7 0e 06 | 21 ad 83 0e 06 4a 1e 08 |...!?...|!....J..|
|00001e50| 1e 09 ca 0e 06 0d 5c 22 | 88 cb 0e 06 0d 5c 22 88 |......\"|.....\".|
|00001e60| 0e 09 ad 84 0d 0e 08 4c | 2a 88 2a c0 87 22 20 5b |.......L|*.*.." [|
|00001e70| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 73 65 |make-obs|olete se|
|00001e80| 74 2d 65 78 74 65 6e 74 | 2d 6c 61 79 6f 75 74 20 |t-extent|-layout |
|00001e90| 22 75 73 65 20 60 73 65 | 74 2d 65 78 74 65 6e 74 |"use `se|t-extent|
|00001ea0| 2d 62 65 67 69 6e 2d 67 | 6c 79 70 68 2d 6c 61 79 |-begin-g|lyph-lay|
|00001eb0| 6f 75 74 27 20 6f 72 20 | 60 73 65 74 2d 65 78 74 |out' or |`set-ext|
|00001ec0| 65 6e 74 2d 65 6e 64 2d | 67 6c 79 70 68 2d 6c 61 |ent-end-|glyph-la|
|00001ed0| 79 6f 75 74 27 20 69 6e | 73 74 65 61 64 2e 22 20 |yout' in|stead." |
|00001ee0| 73 65 6c 65 63 74 2d 73 | 63 72 65 65 6e 2d 68 6f |select-s|creen-ho|
|00001ef0| 6f 6b 20 73 65 6c 65 63 | 74 2d 66 72 61 6d 65 2d |ok selec|t-frame-|
|00001f00| 68 6f 6f 6b 20 6e 65 77 | 76 61 72 20 6f 6c 64 76 |hook new|var oldv|
|00001f10| 61 72 20 62 6f 75 6e 64 | 70 20 76 61 6c 75 65 20 |ar bound|p value |
|00001f20| 6e 65 65 64 73 2d 73 65 | 74 74 69 6e 67 20 64 65 |needs-se|tting de|
|00001f30| 66 76 61 72 61 6c 69 61 | 73 20 6d 61 6b 65 2d 6f |fvaralia|s make-o|
|00001f40| 62 73 6f 6c 65 74 65 2d | 76 61 72 69 61 62 6c 65 |bsolete-|variable|
|00001f50| 20 64 65 73 65 6c 65 63 | 74 2d 73 63 72 65 65 6e | deselec|t-screen|
|00001f60| 2d 68 6f 6f 6b 20 64 65 | 73 65 6c 65 63 74 2d 66 |-hook de|select-f|
|00001f70| 72 61 6d 65 2d 68 6f 6f | 6b 20 61 75 74 6f 2d 72 |rame-hoo|k auto-r|
|00001f80| 61 69 73 65 2d 73 63 72 | 65 65 6e 20 61 75 74 6f |aise-scr|een auto|
|00001f90| 2d 72 61 69 73 65 2d 66 | 72 61 6d 65 20 61 75 74 |-raise-f|rame aut|
|00001fa0| 6f 2d 6c 6f 77 65 72 2d | 73 63 72 65 65 6e 20 61 |o-lower-|screen a|
|00001fb0| 75 74 6f 2d 6c 6f 77 65 | 72 2d 66 72 61 6d 65 20 |uto-lowe|r-frame |
|00001fc0| 67 65 74 2d 73 63 72 65 | 65 6e 2d 66 6f 72 2d 62 |get-scre|en-for-b|
|00001fd0| 75 66 66 65 72 2d 64 65 | 66 61 75 6c 74 2d 73 63 |uffer-de|fault-sc|
|00001fe0| 72 65 65 6e 2d 6e 61 6d | 65 20 67 65 74 2d 66 72 |reen-nam|e get-fr|
|00001ff0| 61 6d 65 2d 66 6f 72 2d | 62 75 66 66 65 72 2d 64 |ame-for-|buffer-d|
|00002000| 65 66 61 75 6c 74 2d 66 | 72 61 6d 65 2d 6e 61 6d |efault-f|rame-nam|
|00002010| 65 20 62 75 66 66 65 72 | 2d 64 65 64 69 63 61 74 |e buffer|-dedicat|
|00002020| 65 64 2d 73 63 72 65 65 | 6e 20 62 75 66 66 65 72 |ed-scree|n buffer|
|00002030| 2d 64 65 64 69 63 61 74 | 65 64 2d 66 72 61 6d 65 |-dedicat|ed-frame|
|00002040| 20 6e 65 77 66 75 6e 20 | 6f 6c 64 66 75 6e 20 64 | newfun |oldfun d|
|00002050| 65 66 69 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 20 64 |efine-fu|nction d|
|00002060| 65 69 63 6f 6e 69 66 79 | 2d 73 63 72 65 65 6e 20 |eiconify|-screen |
|00002070| 64 65 69 63 6f 6e 69 66 | 79 2d 66 72 61 6d 65 20 |deiconif|y-frame |
|00002080| 64 65 6c 65 74 65 2d 73 | 63 72 65 65 6e 20 64 65 |delete-s|creen de|
|00002090| 6c 65 74 65 2d 66 72 61 | 6d 65 20 65 76 65 6e 74 |lete-fra|me event|
|000020a0| 2d 73 63 72 65 65 6e 20 | 65 76 65 6e 74 2d 66 72 |-screen |event-fr|
|000020b0| 61 6d 65 20 66 69 6e 64 | 2d 66 69 6c 65 2d 6f 74 |ame find|-file-ot|
|000020c0| 68 65 72 2d 73 63 72 65 | 65 6e 20 66 69 6e 64 2d |her-scre|en find-|
|000020d0| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 66 72 61 6d 65 |file-oth|er-frame|
|000020e0| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 72 65 61 64 2d | find-fi|le-read-|
|000020f0| 6f 6e 6c 79 2d 6f 74 68 | 65 72 2d 73 63 72 65 65 |only-oth|er-scree|
|00002100| 6e 20 66 69 6e 64 2d 66 | 69 6c 65 2d 72 65 61 64 |n find-f|ile-read|
|00002110| 2d 6f 6e 6c 79 2d 6f 74 | 68 65 72 2d 66 72 61 6d |-only-ot|her-fram|
|00002120| 65 20 6c 69 76 65 2d 73 | 63 72 65 65 6e 2d 70 20 |e live-s|creen-p |
|00002130| 66 72 61 6d 65 2d 6c 69 | 76 65 2d 70 20 73 63 72 |frame-li|ve-p scr|
|00002140| 65 65 6e 2d 68 65 69 67 | 68 74 20 66 72 61 6d 65 |een-heig|ht frame|
|00002150| 2d 68 65 69 67 68 74 20 | 73 63 72 65 65 6e 2d 69 |-height |screen-i|
|00002160| 63 6f 6e 69 66 69 65 64 | 2d 70 20 66 72 61 6d 65 |conified|-p frame|
|00002170| 2d 69 63 6f 6e 69 66 69 | 65 64 2d 70 20 73 63 72 |-iconifi|ed-p scr|
|00002180| 65 65 6e 2d 6c 69 73 74 | 20 66 72 61 6d 65 2d 6c |een-list| frame-l|
|00002190| 69 73 74 20 73 63 72 65 | 65 6e 2d 6c 69 76 65 2d |ist scre|en-live-|
|000021a0| 70 20 73 63 72 65 65 6e | 2d 6e 61 6d 65 20 66 72 |p screen|-name fr|
|000021b0| 61 6d 65 2d 6e 61 6d 65 | 20 73 63 72 65 65 6e 2d |ame-name| screen-|
|000021c0| 70 61 72 61 6d 65 74 65 | 72 73 20 66 72 61 6d 65 |paramete|rs frame|
|000021d0| 2d 70 61 72 61 6d 65 74 | 65 72 73 20 73 63 72 65 |-paramet|ers scre|
|000021e0| 65 6e 2d 70 69 78 65 6c | 2d 68 65 69 67 68 74 20 |en-pixel|-height |
|000021f0| 66 72 61 6d 65 2d 70 69 | 78 65 6c 2d 68 65 69 67 |frame-pi|xel-heig|
|00002200| 68 74 20 73 63 72 65 65 | 6e 2d 70 69 78 65 6c 2d |ht scree|n-pixel-|
|00002210| 77 69 64 74 68 20 66 72 | 61 6d 65 2d 70 69 78 65 |width fr|ame-pixe|
|00002220| 6c 2d 77 69 64 74 68 20 | 73 63 72 65 65 6e 2d 72 |l-width |screen-r|
|00002230| 6f 6f 74 2d 77 69 6e 64 | 6f 77 20 66 72 61 6d 65 |oot-wind|ow frame|
|00002240| 2d 72 6f 6f 74 2d 77 69 | 6e 64 6f 77 20 73 63 72 |-root-wi|ndow scr|
|00002250| 65 65 6e 2d 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |een-sele|cted-win|
|00002260| 64 6f 77 20 66 72 61 6d | 65 2d 73 65 6c 65 63 74 |dow fram|e-select|
|00002270| 65 64 2d 77 69 6e 64 6f | 77 20 73 63 72 65 65 6e |ed-windo|w screen|
|00002280| 2d 74 6f 74 61 6c 6c 79 | 2d 76 69 73 69 62 6c 65 |-totally|-visible|
|00002290| 2d 70 20 66 72 61 6d 65 | 2d 74 6f 74 61 6c 6c 79 |-p frame|-totally|
|000022a0| 2d 76 69 73 69 62 6c 65 | 2d 70 20 73 63 72 65 65 |-visible|-p scree|
|000022b0| 6e 2d 76 69 73 69 62 6c | 65 2d 70 20 66 72 61 6d |n-visibl|e-p fram|
|000022c0| 65 2d 76 69 73 69 62 6c | 65 2d 70 20 73 63 72 65 |e-visibl|e-p scre|
|000022d0| 65 6e 2d 77 69 64 74 68 | 20 66 72 61 6d 65 2d 77 |en-width| frame-w|
|000022e0| 69 64 74 68 20 73 63 72 | 65 65 6e 70 20 66 72 61 |idth scr|eenp fra|
|000022f0| 6d 65 70 20 67 65 74 2d | 73 63 72 65 65 6e 2d 66 |mep get-|screen-f|
|00002300| 6f 72 2d 62 75 66 66 65 | 72 20 67 65 74 2d 66 72 |or-buffe|r get-fr|
|00002310| 61 6d 65 2d 66 6f 72 2d | 62 75 66 66 65 72 20 67 |ame-for-|buffer g|
|00002320| 65 74 2d 73 63 72 65 65 | 6e 2d 66 6f 72 2d 62 75 |et-scree|n-for-bu|
|00002330| 66 66 65 72 2d 6e 6f 73 | 65 6c 65 63 74 20 67 65 |ffer-nos|elect ge|
|00002340| 74 2d 66 72 61 6d 65 2d | 66 6f 72 2d 62 75 66 66 |t-frame-|for-buff|
|00002350| 65 72 2d 6e 6f 73 65 6c | 65 63 74 20 67 65 74 2d |er-nosel|ect get-|
|00002360| 6f 74 68 65 72 2d 73 63 | 72 65 65 6e 20 67 65 74 |other-sc|reen get|
|00002370| 2d 6f 74 68 65 72 2d 66 | 72 61 6d 65 20 69 63 6f |-other-f|rame ico|
|00002380| 6e 69 66 79 2d 73 63 72 | 65 65 6e 20 69 63 6f 6e |nify-scr|een icon|
|00002390| 69 66 79 2d 66 72 61 6d | 65 20 6c 6f 77 65 72 2d |ify-fram|e lower-|
|000023a0| 73 63 72 65 65 6e 20 6c | 6f 77 65 72 2d 66 72 61 |screen l|ower-fra|
|000023b0| 6d 65 20 6d 61 69 6c 2d | 6f 74 68 65 72 2d 73 63 |me mail-|other-sc|
|000023c0| 72 65 65 6e 20 6d 61 69 | 6c 2d 6f 74 68 65 72 2d |reen mai|l-other-|
|000023d0| 66 72 61 6d 65 20 6d 61 | 6b 65 2d 73 63 72 65 65 |frame ma|ke-scree|
|000023e0| 6e 20 6d 61 6b 65 2d 66 | 72 61 6d 65 20 6d 61 6b |n make-f|rame mak|
|000023f0| 65 2d 73 63 72 65 65 6e | 2d 69 6e 76 69 73 69 62 |e-screen|-invisib|
|00002400| 6c 65 20 6d 61 6b 65 2d | 66 72 61 6d 65 2d 69 6e |le make-|frame-in|
|00002410| 76 69 73 69 62 6c 65 20 | 6d 61 6b 65 2d 73 63 72 |visible |make-scr|
|00002420| 65 65 6e 2d 76 69 73 69 | 62 6c 65 20 6d 61 6b 65 |een-visi|ble make|
|00002430| 2d 66 72 61 6d 65 2d 76 | 69 73 69 62 6c 65 20 6d |-frame-v|isible m|
|00002440| 6f 64 69 66 79 2d 73 63 | 72 65 65 6e 2d 70 61 72 |odify-sc|reen-par|
|00002450| 61 6d 65 74 65 72 73 20 | 6d 6f 64 69 66 79 2d 66 |ameters |modify-f|
|00002460| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|00002470| 6e 65 77 2d 73 63 72 65 | 65 6e 20 6e 65 77 2d 66 |new-scre|en new-f|
|00002480| 72 61 6d 65 20 6e 65 78 | 74 2d 73 63 72 65 65 6e |rame nex|t-screen|
|00002490| 20 6e 65 78 74 2d 66 72 | 61 6d 65 20 6e 65 78 74 | next-fr|ame next|
|000024a0| 2d 6d 75 6c 74 69 73 63 | 72 65 65 6e 2d 77 69 6e |-multisc|reen-win|
|000024b0| 64 6f 77 20 6e 65 78 74 | 2d 6d 75 6c 74 69 66 72 |dow next|-multifr|
|000024c0| 61 6d 65 2d 77 69 6e 64 | 6f 77 20 6f 74 68 65 72 |ame-wind|ow other|
|000024d0| 2d 73 63 72 65 65 6e 20 | 6f 74 68 65 72 2d 66 72 |-screen |other-fr|
|000024e0| 61 6d 65 20 70 72 65 76 | 69 6f 75 73 2d 73 63 72 |ame prev|ious-scr|
|000024f0| 65 65 6e 20 70 72 65 76 | 69 6f 75 73 2d 66 72 61 |een prev|ious-fra|
|00002500| 6d 65 20 70 72 65 76 69 | 6f 75 73 2d 6d 75 6c 74 |me previ|ous-mult|
|00002510| 69 73 63 72 65 65 6e 2d | 77 69 6e 64 6f 77 20 70 |iscreen-|window p|
|00002520| 72 65 76 69 6f 75 73 2d | 6d 75 6c 74 69 66 72 61 |revious-|multifra|
|00002530| 6d 65 2d 77 69 6e 64 6f | 77 20 72 61 69 73 65 2d |me-windo|w raise-|
|00002540| 73 63 72 65 65 6e 20 72 | 61 69 73 65 2d 66 72 61 |screen r|aise-fra|
|00002550| 6d 65 20 72 65 64 72 61 | 77 2d 73 63 72 65 65 6e |me redra|w-screen|
|00002560| 20 72 65 64 72 61 77 2d | 66 72 61 6d 65 20 73 65 | redraw-|frame se|
|00002570| 6c 65 63 74 2d 73 63 72 | 65 65 6e 20 73 65 6c 65 |lect-scr|een sele|
|00002580| 63 74 2d 66 72 61 6d 65 | 20 73 65 6c 65 63 74 65 |ct-frame| selecte|
|00002590| 64 2d 73 63 72 65 65 6e | 20 73 65 6c 65 63 74 65 |d-screen| selecte|
|000025a0| 64 2d 66 72 61 6d 65 20 | 73 65 74 2d 62 75 66 66 |d-frame |set-buff|
|000025b0| 65 72 2d 64 65 64 69 63 | 61 74 65 64 2d 73 63 72 |er-dedic|ated-scr|
|000025c0| 65 65 6e 20 73 65 74 2d | 62 75 66 66 65 72 2d 64 |een set-|buffer-d|
|000025d0| 65 64 69 63 61 74 65 64 | 2d 66 72 61 6d 65 20 73 |edicated|-frame s|
|000025e0| 65 74 2d 73 63 72 65 65 | 6e 2d 68 65 69 67 68 74 |et-scree|n-height|
|000025f0| 20 73 65 74 2d 66 72 61 | 6d 65 2d 68 65 69 67 68 | set-fra|me-heigh|
|00002600| 74 20 73 65 74 2d 73 63 | 72 65 65 6e 2d 70 6f 73 |t set-sc|reen-pos|
|00002610| 69 74 69 6f 6e 20 73 65 | 74 2d 66 72 61 6d 65 2d |ition se|t-frame-|
|00002620| 70 6f 73 69 74 69 6f 6e | 20 73 65 74 2d 73 63 72 |position| set-scr|
|00002630| 65 65 6e 2d 73 69 7a 65 | 20 73 65 74 2d 66 72 61 |een-size| set-fra|
|00002640| 6d 65 2d 73 69 7a 65 20 | 73 65 74 2d 73 63 72 65 |me-size |set-scre|
|00002650| 65 6e 2d 77 69 64 74 68 | 20 73 65 74 2d 66 72 61 |en-width| set-fra|
|00002660| 6d 65 2d 77 69 64 74 68 | 20 73 68 6f 77 2d 74 65 |me-width| show-te|
|00002670| 6d 70 2d 62 75 66 66 65 | 72 2d 69 6e 2d 63 75 72 |mp-buffe|r-in-cur|
|00002680| 72 65 6e 74 2d 73 63 72 | 65 65 6e 20 73 68 6f 77 |rent-scr|een show|
|00002690| 2d 74 65 6d 70 2d 62 75 | 66 66 65 72 2d 69 6e 2d |-temp-bu|ffer-in-|
|000026a0| 63 75 72 72 65 6e 74 2d | 66 72 61 6d 65 20 73 77 |current-|frame sw|
|000026b0| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 2d 6f |itch-to-|buffer-o|
|000026c0| 74 68 65 72 2d 73 63 72 | 65 65 6e 20 73 77 69 74 |ther-scr|een swit|
|000026d0| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 2d 6f 74 68 |ch-to-bu|ffer-oth|
|000026e0| 65 72 2d 66 72 61 6d 65 | 20 76 69 73 69 62 6c 65 |er-frame| visible|
|000026f0| 2d 73 63 72 65 65 6e 2d | 6c 69 73 74 20 76 69 73 |-screen-|list vis|
|00002700| 69 62 6c 65 2d 66 72 61 | 6d 65 2d 6c 69 73 74 20 |ible-fra|me-list |
|00002710| 77 69 6e 64 6f 77 2d 73 | 63 72 65 65 6e 20 77 69 |window-s|creen wi|
|00002720| 6e 64 6f 77 2d 66 72 61 | 6d 65 20 78 2d 73 65 74 |ndow-fra|me x-set|
|00002730| 2d 73 63 72 65 65 6e 2d | 70 6f 69 6e 74 65 72 20 |-screen-|pointer |
|00002740| 73 65 74 2d 66 72 61 6d | 65 2d 70 6f 69 6e 74 65 |set-fram|e-pointe|
|00002750| 72 20 78 2d 73 65 74 2d | 66 72 61 6d 65 2d 70 6f |r x-set-|frame-po|
|00002760| 69 6e 74 65 72 20 73 63 | 72 65 65 6e 2d 74 69 74 |inter sc|reen-tit|
|00002770| 6c 65 2d 66 6f 72 6d 61 | 74 20 66 72 61 6d 65 2d |le-forma|t frame-|
|00002780| 74 69 74 6c 65 2d 66 6f | 72 6d 61 74 20 73 63 72 |title-fo|rmat scr|
|00002790| 65 65 6e 2d 69 63 6f 6e | 2d 74 69 74 6c 65 2d 66 |een-icon|-title-f|
|000027a0| 6f 72 6d 61 74 20 66 72 | 61 6d 65 2d 69 63 6f 6e |ormat fr|ame-icon|
|000027b0| 2d 74 69 74 6c 65 2d 66 | 6f 72 6d 61 74 20 74 65 |-title-f|ormat te|
|000027c0| 72 6d 69 6e 61 6c 2d 73 | 63 72 65 65 6e 20 74 65 |rminal-s|creen te|
|000027d0| 72 6d 69 6e 61 6c 2d 66 | 72 61 6d 65 20 64 65 6c |rminal-f|rame del|
|000027e0| 65 74 65 2d 73 63 72 65 | 65 6e 2d 68 6f 6f 6b 20 |ete-scre|en-hook |
|000027f0| 64 65 6c 65 74 65 2d 66 | 72 61 6d 65 2d 68 6f 6f |delete-f|rame-hoo|
|00002800| 6b 20 63 72 65 61 74 65 | 2d 73 63 72 65 65 6e 2d |k create|-screen-|
|00002810| 68 6f 6f 6b 20 63 72 65 | 61 74 65 2d 66 72 61 6d |hook cre|ate-fram|
|00002820| 65 2d 68 6f 6f 6b 20 6d | 6f 75 73 65 2d 65 6e 74 |e-hook m|ouse-ent|
|00002830| 65 72 2d 73 63 72 65 65 | 6e 2d 68 6f 6f 6b 20 6d |er-scree|n-hook m|
|00002840| 6f 75 73 65 2d 65 6e 74 | 65 72 2d 66 72 61 6d 65 |ouse-ent|er-frame|
|00002850| 2d 68 6f 6f 6b 20 6d 6f | 75 73 65 2d 6c 65 61 76 |-hook mo|use-leav|
|00002860| 65 2d 73 63 72 65 65 6e | 2d 68 6f 6f 6b 20 6d 6f |e-screen|-hook mo|
|00002870| 75 73 65 2d 6c 65 61 76 | 65 2d 66 72 61 6d 65 2d |use-leav|e-frame-|
|00002880| 68 6f 6f 6b 20 6d 61 70 | 2d 73 63 72 65 65 6e 2d |hook map|-screen-|
|00002890| 68 6f 6f 6b 20 6d 61 70 | 2d 66 72 61 6d 65 2d 68 |hook map|-frame-h|
|000028a0| 6f 6f 6b 20 75 6e 6d 61 | 70 2d 73 63 72 65 65 6e |ook unma|p-screen|
|000028b0| 2d 68 6f 6f 6b 20 75 6e | 6d 61 70 2d 66 72 61 6d |-hook un|map-fram|
|000028c0| 65 2d 68 6f 6f 6b 20 64 | 65 66 61 75 6c 74 2d 73 |e-hook d|efault-s|
|000028d0| 63 72 65 65 6e 2d 61 6c | 69 73 74 20 64 65 66 61 |creen-al|ist defa|
|000028e0| 75 6c 74 2d 66 72 61 6d | 65 2d 61 6c 69 73 74 20 |ult-fram|e-alist |
|000028f0| 64 65 66 61 75 6c 74 2d | 73 63 72 65 65 6e 2d 6e |default-|screen-n|
|00002900| 61 6d 65 20 64 65 66 61 | 75 6c 74 2d 66 72 61 6d |ame defa|ult-fram|
|00002910| 65 2d 6e 61 6d 65 20 78 | 2d 73 63 72 65 65 6e 2d |e-name x|-screen-|
|00002920| 64 65 66 61 75 6c 74 73 | 20 64 65 66 61 75 6c 74 |defaults| default|
|00002930| 2d 78 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 5d 20 |-x-frame|-alist] |
|00002940| 33 29 0a 23 40 32 20 1f | 0a 28 64 65 66 61 6c 69 |3).#@2 .|.(defali|
|00002950| 61 73 20 27 78 2d 63 72 | 65 61 74 65 2d 73 63 72 |as 'x-cr|eate-scr|
|00002960| 65 65 6e 20 23 5b 28 70 | 61 72 6d 73 20 77 69 6e |een #[(p|arms win|
|00002970| 64 6f 77 2d 69 64 29 20 | 22 c0 c1 20 21 c2 61 ac |dow-id) |".. !.a.|
|00002980| 84 c3 c4 21 88 c5 c6 0e | 07 c8 0e 08 44 43 5c 22 |...!....|....DC\"|
|00002990| c1 20 5c 22 87 22 20 5b | 64 65 76 69 63 65 2d 74 |. \"." [|device-t|
|000029a0| 79 70 65 20 73 65 6c 65 | 63 74 65 64 2d 64 65 76 |ype sele|cted-dev|
|000029b0| 69 63 65 20 78 20 65 72 | 72 6f 72 20 22 43 61 6e |ice x er|ror "Can|
|000029c0| 6e 6f 74 20 63 72 65 61 | 74 65 20 58 20 66 72 61 |not crea|te X fra|
|000029d0| 6d 65 73 20 6f 6e 20 6e | 6f 6e 2d 58 20 64 65 76 |mes on n|on-X dev|
|000029e0| 69 63 65 22 20 6d 61 6b | 65 2d 66 72 61 6d 65 20 |ice" mak|e-frame |
|000029f0| 61 70 70 65 6e 64 20 70 | 61 72 6d 73 20 77 69 6e |append p|arms win|
|00002a00| 64 6f 77 2d 69 64 5d 20 | 35 20 28 23 24 20 2e 20 |dow-id] |5 (#$ . |
|00002a10| 31 30 35 36 37 29 5d 29 | 0a 28 6d 61 6b 65 2d 6f |10567)])|.(make-o|
|00002a20| 62 73 6f 6c 65 74 65 20 | 27 78 2d 63 72 65 61 74 |bsolete |'x-creat|
|00002a30| 65 2d 73 63 72 65 65 6e | 20 27 6d 61 6b 65 2d 66 |e-screen| 'make-f|
|00002a40| 72 61 6d 65 29 0a 23 40 | 31 30 38 20 52 65 74 75 |rame).#@|108 Retu|
|00002a50| 72 6e 73 20 74 68 65 20 | 74 6f 70 6d 6f 73 74 2c |rns the |topmost,|
|00002a60| 20 6c 65 66 74 6d 6f 73 | 74 20 77 69 6e 64 6f 77 | leftmos|t window|
|00002a70| 20 6f 66 20 46 52 41 4d | 45 2e 0a 49 66 20 6f 6d | of FRAM|E..If om|
|00002a80| 69 74 74 65 64 2c 20 46 | 52 41 4d 45 20 64 65 66 |itted, F|RAME def|
|00002a90| 61 75 6c 74 73 20 74 6f | 20 74 68 65 20 63 75 72 |aults to| the cur|
|00002aa0| 72 65 6e 74 6c 79 20 73 | 65 6c 65 63 74 65 64 20 |rently s|elected |
|00002ab0| 66 72 61 6d 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |frame...|(defalia|
|00002ac0| 73 20 27 66 72 61 6d 65 | 2d 66 69 72 73 74 2d 77 |s 'frame|-first-w|
|00002ad0| 69 6e 64 6f 77 20 23 5b | 28 66 72 61 6d 65 29 20 |indow #[|(frame) |
|00002ae0| 22 c0 09 c2 5c 22 87 22 | 20 5b 66 72 61 6d 65 2d |"...\"."| [frame-|
|00002af0| 68 69 67 68 65 73 74 2d | 77 69 6e 64 6f 77 20 66 |highest-|window f|
|00002b00| 72 61 6d 65 20 30 5d 20 | 33 20 28 23 24 20 2e 20 |rame 0] |3 (#$ . |
|00002b10| 31 30 38 32 38 29 5d 29 | 0a 28 62 79 74 65 2d 63 |10828)])|.(byte-c|
|00002b20| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 c4 1d 1e 06 |ode "...|\"......|
|00002b30| c7 0e 06 21 ad 84 c7 0d | 21 3f c7 0e 06 21 ad 83 |...!....|!?...!..|
|00002b40| 0e 06 4a 1e 08 1e 09 ca | 0e 06 0d 5c 22 88 cb 0e |..J.....|...\"...|
|00002b50| 06 0d 5c 22 88 0e 09 ad | 84 0d 0e 08 4c 2a 88 2a |..\"....|....L*.*|
|00002b60| cc cd 1d 1e 06 c7 0e 06 | 21 ad 84 c7 0d 21 3f c7 |........|!....!?.|
|00002b70| 0e 06 21 ad 83 0e 06 4a | 1e 08 1e 09 ca 0e 06 0d |..!....J|........|
|00002b80| 5c 22 88 cb 0e 06 0d 5c | 22 88 0e 09 ad 84 0d 0e |\".....\|".......|
|00002b90| 08 4c 2a 88 2a ce cf 1d | 1e 06 c7 0e 06 21 ad 84 |.L*.*...|.....!..|
|00002ba0| c7 0d 21 3f c7 0e 06 21 | ad 83 0e 06 4a 1e 08 1e |..!?...!|....J...|
|00002bb0| 09 ca 0e 06 0d 5c 22 88 | cb 0e 06 0d 5c 22 88 0e |.....\".|....\"..|
|00002bc0| 09 ad 84 0d 0e 08 4c 2a | 88 2a d0 d1 1d 1e 06 c7 |......L*|.*......|
|00002bd0| 0e 06 21 ad 84 c7 0d 21 | 3f c7 0e 06 21 ad 83 0e |..!....!|?...!...|
|00002be0| 06 4a 1e 08 1e 09 ca 0e | 06 0d 5c 22 88 cb 0e 06 |.J......|..\"....|
|00002bf0| 0d 5c 22 88 0e 09 ad 84 | 0d 0e 08 4c 2a 88 2a d2 |.\".....|...L*.*.|
|00002c00| d3 1d 1e 06 c7 0e 06 21 | ad 84 c7 0d 21 3f c7 0e |.......!|....!?..|
|00002c10| 06 21 ad 83 0e 06 4a 1e | 08 1e 09 ca 0e 06 0d 5c |.!....J.|.......\|
|00002c20| 22 88 cb 0e 06 0d 5c 22 | 88 0e 09 ad 84 0d 0e 08 |".....\"|........|
|00002c30| 4c 2a 88 2a d4 d5 1d 1e | 06 c7 0e 06 21 ad 84 c7 |L*.*....|....!...|
|00002c40| 0d 21 3f c7 0e 06 21 ad | 83 0e 06 4a 1e 08 1e 09 |.!?...!.|...J....|
|00002c50| ca 0e 06 0d 5c 22 88 cb | 0e 06 0d 5c 22 88 0e 09 |....\"..|...\"...|
|00002c60| ad 84 0d 0e 08 4c 2a 88 | 2a d6 d7 1d 1e 06 c7 0e |.....L*.|*.......|
|00002c70| 06 21 ad 84 c7 0d 21 3f | c7 0e 06 21 ad 83 0e 06 |.!....!?|...!....|
|00002c80| 4a 1e 08 1e 09 ca 0e 06 | 0d 5c 22 88 cb 0e 06 0d |J.......|.\".....|
|00002c90| 5c 22 88 0e 09 ad 84 0d | 0e 08 4c 2a 88 2a c0 d8 |\"......|..L*.*..|
|00002ca0| d9 5c 22 87 22 20 5b 6d | 61 6b 65 2d 63 6f 6d 70 |.\"." [m|ake-comp|
|00002cb0| 61 74 69 62 6c 65 20 66 | 72 61 6d 65 2d 66 69 72 |atible f|rame-fir|
|00002cc0| 73 74 2d 77 69 6e 64 6f | 77 20 66 72 61 6d 65 2d |st-windo|w frame-|
|00002cd0| 68 69 67 68 65 73 74 2d | 77 69 6e 64 6f 77 20 69 |highest-|window i|
|00002ce0| 6e 69 74 69 61 6c 2d 66 | 72 61 6d 65 2d 61 6c 69 |nitial-f|rame-ali|
|00002cf0| 73 74 20 69 6e 69 74 69 | 61 6c 2d 66 72 61 6d 65 |st initi|al-frame|
|00002d00| 2d 70 6c 69 73 74 20 6e | 65 77 76 61 72 20 6f 6c |-plist n|ewvar ol|
|00002d10| 64 76 61 72 20 62 6f 75 | 6e 64 70 20 76 61 6c 75 |dvar bou|ndp valu|
|00002d20| 65 20 6e 65 65 64 73 2d | 73 65 74 74 69 6e 67 20 |e needs-|setting |
|00002d30| 64 65 66 76 61 72 61 6c | 69 61 73 20 6d 61 6b 65 |defvaral|ias make|
|00002d40| 2d 6f 62 73 6f 6c 65 74 | 65 2d 76 61 72 69 61 62 |-obsolet|e-variab|
|00002d50| 6c 65 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 66 72 |le minib|uffer-fr|
|00002d60| 61 6d 65 2d 61 6c 69 73 | 74 20 6d 69 6e 69 62 75 |ame-alis|t minibu|
|00002d70| 66 66 65 72 2d 66 72 61 | 6d 65 2d 70 6c 69 73 74 |ffer-fra|me-plist|
|00002d80| 20 70 6f 70 2d 75 70 2d | 66 72 61 6d 65 2d 61 6c | pop-up-|frame-al|
|00002d90| 69 73 74 20 70 6f 70 2d | 75 70 2d 66 72 61 6d 65 |ist pop-|up-frame|
|00002da0| 2d 70 6c 69 73 74 20 73 | 70 65 63 69 61 6c 2d 64 |-plist s|pecial-d|
|00002db0| 69 73 70 6c 61 79 2d 66 | 72 61 6d 65 2d 61 6c 69 |isplay-f|rame-ali|
|00002dc0| 73 74 20 73 70 65 63 69 | 61 6c 2d 64 69 73 70 6c |st speci|al-displ|
|00002dd0| 61 79 2d 66 72 61 6d 65 | 2d 70 6c 69 73 74 20 64 |ay-frame|-plist d|
|00002de0| 65 66 61 75 6c 74 2d 66 | 72 61 6d 65 2d 61 6c 69 |efault-f|rame-ali|
|00002df0| 73 74 20 64 65 66 61 75 | 6c 74 2d 66 72 61 6d 65 |st defau|lt-frame|
|00002e00| 2d 70 6c 69 73 74 20 64 | 65 66 61 75 6c 74 2d 78 |-plist d|efault-x|
|00002e10| 2d 66 72 61 6d 65 2d 61 | 6c 69 73 74 20 64 65 66 |-frame-a|list def|
|00002e20| 61 75 6c 74 2d 78 2d 66 | 72 61 6d 65 2d 70 6c 69 |ault-x-f|rame-pli|
|00002e30| 73 74 20 64 65 66 61 75 | 6c 74 2d 74 74 79 2d 66 |st defau|lt-tty-f|
|00002e40| 72 61 6d 65 2d 61 6c 69 | 73 74 20 64 65 66 61 75 |rame-ali|st defau|
|00002e50| 6c 74 2d 74 74 79 2d 66 | 72 61 6d 65 2d 70 6c 69 |lt-tty-f|rame-pli|
|00002e60| 73 74 20 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |st frame|-paramet|
|00002e70| 65 72 73 20 66 72 61 6d | 65 2d 70 72 6f 70 65 72 |ers fram|e-proper|
|00002e80| 74 79 5d 20 33 29 0a 23 | 40 34 32 31 20 52 65 74 |ty] 3).#|@421 Ret|
|00002e90| 75 72 6e 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |urn the |paramete|
|00002ea0| 72 73 2d 61 6c 69 73 74 | 20 6f 66 20 66 72 61 6d |rs-alist| of fram|
|00002eb0| 65 20 46 52 41 4d 45 2e | 0a 49 74 20 69 73 20 61 |e FRAME.|.It is a|
|00002ec0| 20 6c 69 73 74 20 6f 66 | 20 65 6c 65 6d 65 6e 74 | list of| element|
|00002ed0| 73 20 6f 66 20 74 68 65 | 20 66 6f 72 6d 20 28 50 |s of the| form (P|
|00002ee0| 41 52 4d 20 2e 20 56 41 | 4c 55 45 29 2c 20 77 68 |ARM . VA|LUE), wh|
|00002ef0| 65 72 65 20 50 41 52 4d | 20 69 73 20 61 20 73 79 |ere PARM| is a sy|
|00002f00| 6d 62 6f 6c 2e 0a 54 68 | 65 20 6d 65 61 6e 69 6e |mbol..Th|e meanin|
|00002f10| 67 66 75 6c 20 50 41 52 | 4d 73 20 64 65 70 65 6e |gful PAR|Ms depen|
|00002f20| 64 20 6f 6e 20 74 68 65 | 20 6b 69 6e 64 20 6f 66 |d on the| kind of|
|00002f30| 20 66 72 61 6d 65 2e 0a | 49 66 20 46 52 41 4d 45 | frame..|If FRAME|
|00002f40| 20 69 73 20 6f 6d 69 74 | 74 65 64 2c 20 72 65 74 | is omit|ted, ret|
|00002f50| 75 72 6e 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |urn info|rmation |
|00002f60| 6f 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 6c 79 |on the c|urrently|
|00002f70| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 2e | selecte|d frame.|
|00002f80| 0a 0a 53 65 65 20 74 68 | 65 20 76 61 72 69 61 62 |..See th|e variab|
|00002f90| 6c 65 73 20 60 64 65 66 | 61 75 6c 74 2d 66 72 61 |les `def|ault-fra|
|00002fa0| 6d 65 2d 70 6c 69 73 74 | 27 2c 20 60 64 65 66 61 |me-plist|', `defa|
|00002fb0| 75 6c 74 2d 78 2d 66 72 | 61 6d 65 2d 70 6c 69 73 |ult-x-fr|ame-plis|
|00002fc0| 74 27 2c 20 61 6e 64 0a | 60 64 65 66 61 75 6c 74 |t', and.|`default|
|00002fd0| 2d 74 74 79 2d 66 72 61 | 6d 65 2d 70 6c 69 73 74 |-tty-fra|me-plist|
|00002fe0| 27 20 66 6f 72 20 61 20 | 64 65 73 63 72 69 70 74 |' for a |descript|
|00002ff0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 70 61 72 61 6d |ion of t|he param|
|00003000| 65 74 65 72 73 20 6d 65 | 61 6e 69 6e 67 66 75 6c |eters me|aningful|
|00003010| 0a 66 6f 72 20 70 61 72 | 74 69 63 75 6c 61 72 20 |.for par|ticular |
|00003020| 74 79 70 65 73 20 6f 66 | 20 66 72 61 6d 65 73 2e |types of| frames.|
|00003030| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 72 61 |..(defal|ias 'fra|
|00003040| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 23 5b |me-param|eters #[|
|00003050| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 72 61 6d 65 |(&option|al frame|
|00003060| 29 20 22 08 ac 83 c1 20 | 10 c2 c3 08 21 21 87 22 |) ".... |....!!."|
|00003070| 20 5b 66 72 61 6d 65 20 | 73 65 6c 65 63 74 65 64 | [frame |selected|
|00003080| 2d 66 72 61 6d 65 20 64 | 65 73 74 72 75 63 74 69 |-frame d|estructi|
|00003090| 76 65 2d 70 6c 69 73 74 | 2d 74 6f 2d 61 6c 69 73 |ve-plist|-to-alis|
|000030a0| 74 20 66 72 61 6d 65 2d | 70 72 6f 70 65 72 74 69 |t frame-|properti|
|000030b0| 65 73 5d 20 33 20 28 23 | 24 20 2e 20 31 31 39 31 |es] 3 (#|$ . 1191|
|000030c0| 37 29 5d 29 0a 28 6d 61 | 6b 65 2d 63 6f 6d 70 61 |7)]).(ma|ke-compa|
|000030d0| 74 69 62 6c 65 20 27 6d | 6f 64 69 66 79 2d 66 72 |tible 'm|odify-fr|
|000030e0| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 27 |ame-para|meters '|
|000030f0| 73 65 74 2d 66 72 61 6d | 65 2d 70 72 6f 70 65 72 |set-fram|e-proper|
|00003100| 74 69 65 73 29 0a 23 40 | 33 30 34 20 4d 6f 64 69 |ties).#@|304 Modi|
|00003110| 66 79 20 74 68 65 20 70 | 72 6f 70 65 72 74 69 65 |fy the p|ropertie|
|00003120| 73 20 6f 66 20 66 72 61 | 6d 65 20 46 52 41 4d 45 |s of fra|me FRAME|
|00003130| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 41 4c | accordi|ng to AL|
|00003140| 49 53 54 2e 0a 41 4c 49 | 53 54 20 69 73 20 61 6e |IST..ALI|ST is an|
|00003150| 20 61 6c 69 73 74 20 6f | 66 20 70 72 6f 70 65 72 | alist o|f proper|
|00003160| 74 69 65 73 20 74 6f 20 | 63 68 61 6e 67 65 20 61 |ties to |change a|
|00003170| 6e 64 20 74 68 65 69 72 | 20 6e 65 77 20 76 61 6c |nd their| new val|
|00003180| 75 65 73 2e 0a 45 61 63 | 68 20 65 6c 65 6d 65 6e |ues..Eac|h elemen|
|00003190| 74 20 6f 66 20 41 4c 49 | 53 54 20 68 61 73 20 74 |t of ALI|ST has t|
|000031a0| 68 65 20 66 6f 72 6d 20 | 28 50 41 52 4d 20 2e 20 |he form |(PARM . |
|000031b0| 56 41 4c 55 45 29 2c 20 | 77 68 65 72 65 20 50 41 |VALUE), |where PA|
|000031c0| 52 4d 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 2e 0a |RM is a |symbol..|
|000031d0| 54 68 65 20 6d 65 61 6e | 69 6e 67 66 75 6c 20 50 |The mean|ingful P|
|000031e0| 41 52 4d 73 20 64 65 70 | 65 6e 64 20 6f 6e 20 74 |ARMs dep|end on t|
|000031f0| 68 65 20 6b 69 6e 64 20 | 6f 66 20 66 72 61 6d 65 |he kind |of frame|
|00003200| 2e 0a 0a 53 65 65 20 60 | 73 65 74 2d 66 72 61 6d |...See `|set-fram|
|00003210| 65 2d 70 72 6f 70 65 72 | 74 69 65 73 27 20 66 6f |e-proper|ties' fo|
|00003220| 72 20 62 75 69 6c 74 2d | 69 6e 20 70 72 6f 70 65 |r built-|in prope|
|00003230| 72 74 79 20 6e 61 6d 65 | 73 2e 1f 0a 28 64 65 66 |rty name|s...(def|
|00003240| 61 6c 69 61 73 20 27 6d | 6f 64 69 66 79 2d 66 72 |alias 'm|odify-fr|
|00003250| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 23 |ame-para|meters #|
|00003260| 5b 28 66 72 61 6d 65 20 | 61 6c 69 73 74 29 20 22 |[(frame |alist) "|
|00003270| c0 09 c2 0b 21 5c 22 87 | 22 20 5b 73 65 74 2d 66 |....!\".|" [set-f|
|00003280| 72 61 6d 65 2d 70 72 6f | 70 65 72 74 69 65 73 20 |rame-pro|perties |
|00003290| 66 72 61 6d 65 20 61 6c | 69 73 74 2d 74 6f 2d 70 |frame al|ist-to-p|
|000032a0| 6c 69 73 74 20 61 6c 69 | 73 74 5d 20 34 20 28 23 |list ali|st] 4 (#|
|000032b0| 24 20 2e 20 31 32 35 35 | 36 29 5d 29 0a 28 62 79 |$ . 1255|6)]).(by|
|000032c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 1a 1b c4 0b 5c |te-code |"......\|
|000032d0| 6e 5c 22 88 c5 0b 5c 6e | 5c 22 88 2a c6 c7 1a 1b |n\"...\n|\".*....|
|000032e0| c4 0b 5c 6e 5c 22 88 c5 | 0b 5c 6e 5c 22 88 2a c8 |..\n\"..|.\n\".*.|
|000032f0| c9 ca 5c 22 88 cb cc 1e | 0d 1e 0e cf 0e 0e 21 ad |..\"....|......!.|
|00003300| 85 cf 0e 0d 21 3f cf 0e | 0e 21 ad 83 0e 0e 4a 1e |....!?..|.!....J.|
|00003310| 10 1e 11 d2 0e 0e 0e 0d | 5c 22 88 c8 0e 0e 0e 0d |........|\"......|
|00003320| 5c 22 88 0e 11 ad 85 0e | 0d 0e 10 4c 2a 88 2a d3 |\"......|...L*.*.|
|00003330| d4 1a 1b c4 0b 5c 6e 5c | 22 88 c5 0b 5c 6e 5c 22 |.....\n\|"...\n\"|
|00003340| 88 2a c8 d5 d6 5c 22 88 | c8 d7 d8 5c 22 88 c8 d9 |.*...\".|...\"...|
|00003350| da 5c 22 88 c8 db dc 5c | 22 88 c8 dd de 5c 22 88 |.\"....\|"....\".|
|00003360| c8 df e0 5c 22 88 c8 e1 | e2 5c 22 88 c8 e3 e4 5c |...\"...|.\"....\|
|00003370| 22 88 c8 e5 e6 5c 22 88 | c8 e7 e8 5c 22 88 e9 ea |"....\".|...\"...|
|00003380| 1a 1b c4 0b 5c 6e 5c 22 | 88 eb 0b 5c 6e 5c 22 88 |....\n\"|...\n\".|
|00003390| 2a ec ed 1a 1b c4 0b 5c | 6e 5c 22 88 eb 0b 5c 6e |*......\|n\"...\n|
|000033a0| 5c 22 88 2a c0 87 22 20 | 5b 6c 69 73 74 2d 66 61 |\".*.." |[list-fa|
|000033b0| 63 65 73 2d 64 69 73 70 | 6c 61 79 20 65 64 69 74 |ces-disp|lay edit|
|000033c0| 2d 66 61 63 65 73 20 6e | 65 77 66 75 6e 20 6f 6c |-faces n|ewfun ol|
|000033d0| 64 66 75 6e 20 64 65 66 | 69 6e 65 2d 66 75 6e 63 |dfun def|ine-func|
|000033e0| 74 69 6f 6e 20 6d 61 6b | 65 2d 6f 62 73 6f 6c 65 |tion mak|e-obsole|
|000033f0| 74 65 20 6c 69 73 74 2d | 66 61 63 65 73 20 66 61 |te list-|faces fa|
|00003400| 63 65 2d 6c 69 73 74 20 | 6d 61 6b 65 2d 6f 62 73 |ce-list |make-obs|
|00003410| 6f 6c 65 74 65 2d 76 61 | 72 69 61 62 6c 65 20 74 |olete-va|riable t|
|00003420| 72 69 6d 2d 76 65 72 73 | 69 6f 6e 73 2d 77 69 74 |rim-vers|ions-wit|
|00003430| 68 6f 75 74 2d 61 73 6b | 69 6e 67 20 64 65 6c 65 |hout-ask|ing dele|
|00003440| 74 65 2d 6f 6c 64 2d 76 | 65 72 73 69 6f 6e 73 20 |te-old-v|ersions |
|00003450| 61 66 74 65 72 2d 77 72 | 69 74 65 2d 66 69 6c 65 |after-wr|ite-file|
|00003460| 2d 68 6f 6f 6b 73 20 61 | 66 74 65 72 2d 73 61 76 |-hooks a|fter-sav|
|00003470| 65 2d 68 6f 6f 6b 20 6e | 65 77 76 61 72 20 6f 6c |e-hook n|ewvar ol|
|00003480| 64 76 61 72 20 62 6f 75 | 6e 64 70 20 76 61 6c 75 |dvar bou|ndp valu|
|00003490| 65 20 6e 65 65 64 73 2d | 73 65 74 74 69 6e 67 20 |e needs-|setting |
|000034a0| 64 65 66 76 61 72 61 6c | 69 61 73 20 74 72 75 65 |defvaral|ias true|
|000034b0| 6e 61 6d 65 20 66 69 6c | 65 2d 74 72 75 65 6e 61 |name fil|e-truena|
|000034c0| 6d 65 20 61 75 74 6f 2d | 66 69 6c 6c 2d 68 6f 6f |me auto-|fill-hoo|
|000034d0| 6b 20 61 75 74 6f 2d 66 | 69 6c 6c 2d 66 75 6e 63 |k auto-f|ill-func|
|000034e0| 74 69 6f 6e 20 62 6c 69 | 6e 6b 2d 70 61 72 65 6e |tion bli|nk-paren|
|000034f0| 2d 68 6f 6f 6b 20 62 6c | 69 6e 6b 2d 70 61 72 65 |-hook bl|ink-pare|
|00003500| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 6c 69 73 70 2d |n-functi|on lisp-|
|00003510| 69 6e 64 65 6e 74 2d 68 | 6f 6f 6b 20 6c 69 73 70 |indent-h|ook lisp|
|00003520| 2d 69 6e 64 65 6e 74 2d | 66 75 6e 63 74 69 6f 6e |-indent-|function|
|00003530| 20 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 2d | comment|-indent-|
|00003540| 68 6f 6f 6b 20 63 6f 6d | 6d 65 6e 74 2d 69 6e 64 |hook com|ment-ind|
|00003550| 65 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 20 74 65 6d |ent-func|tion tem|
|00003560| 70 2d 62 75 66 66 65 72 | 2d 73 68 6f 77 2d 68 6f |p-buffer|-show-ho|
|00003570| 6f 6b 20 74 65 6d 70 2d | 62 75 66 66 65 72 2d 73 |ok temp-|buffer-s|
|00003580| 68 6f 77 2d 66 75 6e 63 | 74 69 6f 6e 20 69 6e 68 |how-func|tion inh|
|00003590| 69 62 69 74 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |ibit-loc|al-varia|
|000035a0| 62 6c 65 73 20 22 75 73 | 65 20 60 65 6e 61 62 6c |bles "us|e `enabl|
|000035b0| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|000035c0| 73 27 20 28 77 69 74 68 | 20 74 68 65 20 72 65 76 |s' (with| the rev|
|000035d0| 65 72 73 65 64 20 73 65 | 6e 73 65 29 2e 22 20 73 |ersed se|nse)." s|
|000035e0| 75 73 70 65 6e 64 2d 68 | 6f 6f 6b 73 20 73 75 73 |uspend-h|ooks sus|
|000035f0| 70 65 6e 64 2d 68 6f 6f | 6b 20 66 69 72 73 74 2d |pend-hoo|k first-|
|00003600| 63 68 61 6e 67 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |change-f|unction |
|00003610| 66 69 72 73 74 2d 63 68 | 61 6e 67 65 2d 68 6f 6f |first-ch|ange-hoo|
|00003620| 6b 20 62 65 66 6f 72 65 | 2d 63 68 61 6e 67 65 2d |k before|-change-|
|00003630| 66 75 6e 63 74 69 6f 6e | 20 22 75 73 65 20 62 65 |function| "use be|
|00003640| 66 6f 72 65 2d 63 68 61 | 6e 67 65 2d 66 75 6e 63 |fore-cha|nge-func|
|00003650| 74 69 6f 6e 73 3b 20 77 | 68 69 63 68 20 69 73 20 |tions; w|hich is |
|00003660| 61 20 6c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |a list o|f functi|
|00003670| 6f 6e 73 20 72 61 74 68 | 65 72 20 74 68 61 6e 20 |ons rath|er than |
|00003680| 61 20 73 69 6e 67 6c 65 | 20 66 75 6e 63 74 69 6f |a single| functio|
|00003690| 6e 2e 22 20 61 66 74 65 | 72 2d 63 68 61 6e 67 65 |n." afte|r-change|
|000036a0| 2d 66 75 6e 63 74 69 6f | 6e 20 22 75 73 65 20 61 |-functio|n "use a|
|000036b0| 66 74 65 72 2d 63 68 61 | 6e 67 65 2d 66 75 6e 63 |fter-cha|nge-func|
|000036c0| 74 69 6f 6e 73 3b 20 77 | 68 69 63 68 20 69 73 20 |tions; w|hich is |
|000036d0| 61 20 6c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |a list o|f functi|
|000036e0| 6f 6e 73 20 72 61 74 68 | 65 72 20 74 68 61 6e 20 |ons rath|er than |
|000036f0| 61 20 73 69 6e 67 6c 65 | 20 66 75 6e 63 74 69 6f |a single| functio|
|00003700| 6e 2e 22 20 69 6e 73 65 | 72 74 2d 61 6e 64 2d 69 |n." inse|rt-and-i|
|00003710| 6e 68 65 72 69 74 20 69 | 6e 73 65 72 74 20 6d 61 |nherit i|nsert ma|
|00003720| 6b 65 2d 63 6f 6d 70 61 | 74 69 62 6c 65 20 69 6e |ke-compa|tible in|
|00003730| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00003740| 65 72 73 2d 61 6e 64 2d | 69 6e 68 65 72 69 74 20 |ers-and-|inherit |
|00003750| 69 6e 73 65 72 74 2d 62 | 65 66 6f 72 65 2d 6d 61 |insert-b|efore-ma|
|00003760| 72 6b 65 72 73 5d 20 33 | 29 0a 23 40 34 37 20 52 |rkers] 3|).#@47 R|
|00003770| 65 74 75 72 6e 73 20 74 | 68 65 20 66 69 72 73 74 |eturns t|he first|
|00003780| 20 70 61 72 65 6e 74 20 | 6f 66 20 74 68 65 20 67 | parent |of the g|
|00003790| 69 76 65 6e 20 6b 65 79 | 6d 61 70 2e 1f 0a 28 64 |iven key|map...(d|
|000037a0| 65 66 61 6c 69 61 73 20 | 27 6b 65 79 6d 61 70 2d |efalias |'keymap-|
|000037b0| 70 61 72 65 6e 74 20 23 | 5b 28 6b 65 79 6d 61 70 |parent #|[(keymap|
|000037c0| 29 20 22 c0 09 21 40 87 | 22 20 5b 6b 65 79 6d 61 |) "..!@.|" [keyma|
|000037d0| 70 2d 70 61 72 65 6e 74 | 73 20 6b 65 79 6d 61 70 |p-parent|s keymap|
|000037e0| 5d 20 32 20 28 23 24 20 | 2e 20 31 34 31 39 31 29 |] 2 (#$ |. 14191)|
|000037f0| 5d 29 0a 28 6d 61 6b 65 | 2d 63 6f 6d 70 61 74 69 |]).(make|-compati|
|00003800| 62 6c 65 20 27 6b 65 79 | 6d 61 70 2d 70 61 72 65 |ble 'key|map-pare|
|00003810| 6e 74 20 27 6b 65 79 6d | 61 70 2d 70 61 72 65 6e |nt 'keym|ap-paren|
|00003820| 74 73 29 0a 23 40 35 34 | 20 4d 61 6b 65 73 20 74 |ts).#@54| Makes t|
|00003830| 68 65 20 67 69 76 65 6e | 20 6b 65 79 6d 61 70 20 |he given| keymap |
|00003840| 68 61 76 65 20 28 6f 6e | 6c 79 29 20 74 68 65 20 |have (on|ly) the |
|00003850| 67 69 76 65 6e 20 70 61 | 72 65 6e 74 2e 1f 0a 28 |given pa|rent...(|
|00003860| 64 65 66 61 6c 69 61 73 | 20 27 73 65 74 2d 6b 65 |defalias| 'set-ke|
|00003870| 79 6d 61 70 2d 70 61 72 | 65 6e 74 20 23 5b 28 6b |ymap-par|ent #[(k|
|00003880| 65 79 6d 61 70 20 70 61 | 72 65 6e 74 29 20 22 c0 |eymap pa|rent) ".|
|00003890| 09 5c 6e ad 82 5c 6e 43 | 5c 22 88 5c 6e 87 22 20 |.\n..\nC|\".\n." |
|000038a0| 5b 73 65 74 2d 6b 65 79 | 6d 61 70 2d 70 61 72 65 |[set-key|map-pare|
|000038b0| 6e 74 73 20 6b 65 79 6d | 61 70 20 70 61 72 65 6e |nts keym|ap paren|
|000038c0| 74 5d 20 33 20 28 23 24 | 20 2e 20 31 34 33 37 37 |t] 3 (#$| . 14377|
|000038d0| 29 5d 29 0a 28 6d 61 6b | 65 2d 63 6f 6d 70 61 74 |)]).(mak|e-compat|
|000038e0| 69 62 6c 65 20 27 73 65 | 74 2d 6b 65 79 6d 61 70 |ible 'se|t-keymap|
|000038f0| 2d 70 61 72 65 6e 74 20 | 27 73 65 74 2d 6b 65 79 |-parent |'set-key|
|00003900| 6d 61 70 2d 70 61 72 65 | 6e 74 73 29 0a 23 40 34 |map-pare|nts).#@4|
|00003910| 38 20 4f 62 73 6f 6c 65 | 74 65 2e 20 20 53 65 65 |8 Obsole|te.  See|
|00003920| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 60 61 | the fun|ction `a|
|00003930| 64 64 2d 6d 65 6e 75 2d | 62 75 74 74 6f 6e 27 2e |dd-menu-|button'.|
|00003940| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 64 |..(defal|ias 'add|
|00003950| 2d 6d 65 6e 75 2d 69 74 | 65 6d 20 23 5b 28 6d 65 |-menu-it|em #[(me|
|00003960| 6e 75 2d 70 61 74 68 20 | 69 74 65 6d 2d 6e 61 6d |nu-path |item-nam|
|00003970| 65 20 66 75 6e 63 74 69 | 6f 6e 20 65 6e 61 62 6c |e functi|on enabl|
|00003980| 65 64 2d 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 62 |ed-p &op|tional b|
|00003990| 65 66 6f 72 65 29 20 22 | 08 ac 84 c1 c2 21 88 c3 |efore) "|.....!..|
|000039a0| 0c c5 08 0e 06 0e 07 23 | 0e 08 23 87 22 20 5b 69 |.......#|..#." [i|
|000039b0| 74 65 6d 2d 6e 61 6d 65 | 20 65 72 72 6f 72 20 22 |tem-name| error "|
|000039c0| 6d 75 73 74 20 73 70 65 | 63 69 66 79 20 61 6e 20 |must spe|cify an |
|000039d0| 69 74 65 6d 20 6e 61 6d | 65 22 20 61 64 64 2d 6d |item nam|e" add-m|
|000039e0| 65 6e 75 2d 62 75 74 74 | 6f 6e 20 6d 65 6e 75 2d |enu-butt|on menu-|
|000039f0| 70 61 74 68 20 76 65 63 | 74 6f 72 20 66 75 6e 63 |path vec|tor func|
|00003a00| 74 69 6f 6e 20 65 6e 61 | 62 6c 65 64 2d 70 20 62 |tion ena|bled-p b|
|00003a10| 65 66 6f 72 65 5d 20 36 | 20 28 23 24 20 2e 20 31 |efore] 6| (#$ . 1|
|00003a20| 34 36 31 30 29 5d 29 0a | 28 6d 61 6b 65 2d 6f 62 |4610)]).|(make-ob|
|00003a30| 73 6f 6c 65 74 65 20 27 | 61 64 64 2d 6d 65 6e 75 |solete '|add-menu|
|00003a40| 2d 69 74 65 6d 20 27 61 | 64 64 2d 6d 65 6e 75 2d |-item 'a|dd-menu-|
|00003a50| 62 75 74 74 6f 6e 29 0a | 23 40 33 33 20 53 65 65 |button).|#@33 See|
|00003a60| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 60 61 | the fun|ction `a|
|00003a70| 64 64 2d 73 75 62 6d 65 | 6e 75 27 2e 1f 0a 28 64 |dd-subme|nu'...(d|
|00003a80| 65 66 61 6c 69 61 73 20 | 27 61 64 64 2d 6d 65 6e |efalias |'add-men|
|00003a90| 75 20 23 5b 28 6d 65 6e | 75 2d 70 61 74 68 20 6d |u #[(men|u-path m|
|00003aa0| 65 6e 75 2d 6e 61 6d 65 | 20 6d 65 6e 75 2d 69 74 |enu-name| menu-it|
|00003ab0| 65 6d 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 62 65 |ems &opt|ional be|
|00003ac0| 66 6f 72 65 29 20 22 08 | ac 86 c1 c2 c3 21 21 88 |fore) ".|.....!!.|
|00003ad0| 0c ac 86 c1 c2 c5 21 21 | 88 c6 0e 07 08 0c 42 0e |......!!|......B.|
|00003ae0| 08 23 87 22 20 5b 6d 65 | 6e 75 2d 6e 61 6d 65 20 |.#." [me|nu-name |
|00003af0| 65 72 72 6f 72 20 67 65 | 74 74 65 78 74 20 22 6d |error ge|ttext "m|
|00003b00| 75 73 74 20 73 70 65 63 | 69 66 79 20 61 20 6d 65 |ust spec|ify a me|
|00003b10| 6e 75 20 6e 61 6d 65 22 | 20 6d 65 6e 75 2d 69 74 |nu name"| menu-it|
|00003b20| 65 6d 73 20 22 6d 75 73 | 74 20 73 70 65 63 69 66 |ems "mus|t specif|
|00003b30| 79 20 73 6f 6d 65 20 6d | 65 6e 75 20 69 74 65 6d |y some m|enu item|
|00003b40| 73 22 20 61 64 64 2d 73 | 75 62 6d 65 6e 75 20 6d |s" add-s|ubmenu m|
|00003b50| 65 6e 75 2d 70 61 74 68 | 20 62 65 66 6f 72 65 5d |enu-path| before]|
|00003b60| 20 34 20 28 23 24 20 2e | 20 31 34 39 34 31 29 5d | 4 (#$ .| 14941)]|
|00003b70| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00003b80| c2 5c 22 88 c3 c4 1d 1e | 06 c7 0e 06 0d 5c 22 88 |.\".....|.....\".|
|00003b90| c8 0e 06 0d 5c 22 88 2a | c9 ca 1d 1e 06 c7 0e 06 |....\".*|........|
|00003ba0| 0d 5c 22 88 c0 0e 06 0d | 5c 22 88 2a cb cc 1d 1e |.\".....|\".*....|
|00003bb0| 06 c7 0e 06 0d 5c 22 88 | c0 0e 06 0d 5c 22 88 2a |.....\".|....\".*|
|00003bc0| c8 cd cc 5c 22 88 ce cf | 1d 1e 06 c7 0e 06 0d 5c |...\"...|.......\|
|00003bd0| 22 88 c8 0e 06 0d 5c 22 | 88 2a d0 d1 1d 1e 06 c7 |".....\"|.*......|
|00003be0| 0e 06 0d 5c 22 88 c8 0e | 06 0d 5c 22 88 2a d2 d3 |...\"...|..\".*..|
|00003bf0| 1d 1e 06 c7 0e 06 0d 5c | 22 88 c8 0e 06 0d 5c 22 |.......\|".....\"|
|00003c00| 88 2a d4 d5 1d 1e 06 c7 | 0e 06 0d 5c 22 88 c8 0e |.*......|...\"...|
|00003c10| 06 0d 5c 22 88 2a d6 d7 | 1d 1e 06 c7 0e 06 0d 5c |..\".*..|.......\|
|00003c20| 22 88 c8 0e 06 0d 5c 22 | 88 2a d8 d9 1d 1e 06 c7 |".....\"|.*......|
|00003c30| 0e 06 0d 5c 22 88 c8 0e | 06 0d 5c 22 88 2a c8 da |...\"...|..\".*..|
|00003c40| db 5c 22 88 c8 dc dd 5c | 22 88 de df 1d 1e 06 c7 |.\"....\|".......|
|00003c50| 0e 06 0d 5c 22 88 c8 0e | 06 0d 5c 22 88 2a e0 e1 |...\"...|..\".*..|
|00003c60| e2 5c 22 88 e3 e4 1d 1e | 06 c7 0e 06 0d 5c 22 88 |.\".....|.....\".|
|00003c70| c0 0e 06 0d 5c 22 88 2a | e5 e4 1d 1e 06 c7 0e 06 |....\".*|........|
|00003c80| 0d 5c 22 88 c0 0e 06 0d | 5c 22 88 2a e6 e7 1e 28 |.\".....|\".*...(|
|00003c90| 1e 29 ea 0e 29 0e 28 5c | 22 88 eb 0e 29 0e 28 5c |.)..).(\|"...).(\|
|00003ca0| 22 88 2a ec ed 1e 28 1e | 29 ea 0e 29 0e 28 5c 22 |".*...(.|)..).(\"|
|00003cb0| 88 eb 0e 29 0e 28 5c 22 | 88 2a ee ef 1e 28 1e 29 |...).(\"|.*...(.)|
|00003cc0| ea 0e 29 0e 28 5c 22 88 | eb 0e 29 0e 28 5c 22 88 |..).(\".|..).(\".|
|00003cd0| 2a f0 f1 1e 28 1e 29 ea | 0e 29 0e 28 5c 22 88 eb |*...(.).|.).(\"..|
|00003ce0| 0e 29 0e 28 5c 22 88 2a | eb f2 f3 5c 22 88 f4 f5 |.).(\".*|...\"...|
|00003cf0| 1e 28 1e 29 ea 0e 29 0e | 28 5c 22 88 eb 0e 29 0e |.(.)..).|(\"...).|
|00003d00| 28 5c 22 88 2a f6 f7 1e | 28 1e 29 ea 0e 29 0e 28 |(\".*...|(.)..).(|
|00003d10| 5c 22 88 eb 0e 29 0e 28 | 5c 22 88 2a f8 f9 1e 28 |\"...).(|\".*...(|
|00003d20| 1e 29 ea 0e 29 0e 28 5c | 22 88 eb 0e 29 0e 28 5c |.)..).(\|"...).(\|
|00003d30| 22 88 2a fa fb 1d 1e 06 | c7 0e 06 0d 5c 22 88 c8 |".*.....|....\"..|
|00003d40| 0e 06 0d 5c 22 88 2a c0 | 87 22 20 5b 6d 61 6b 65 |...\".*.|." [make|
|00003d50| 2d 63 6f 6d 70 61 74 69 | 62 6c 65 20 61 64 64 2d |-compati|ble add-|
|00003d60| 6d 65 6e 75 20 61 64 64 | 2d 73 75 62 6d 65 6e 75 |menu add|-submenu|
|00003d70| 20 70 6f 70 75 70 2d 6d | 65 6e 75 2d 75 70 2d 70 | popup-m|enu-up-p|
|00003d80| 20 70 6f 70 75 70 2d 75 | 70 2d 70 20 6e 65 77 66 | popup-u|p-p newf|
|00003d90| 75 6e 20 6f 6c 64 66 75 | 6e 20 64 65 66 69 6e 65 |un oldfu|n define|
|00003da0| 2d 66 75 6e 63 74 69 6f | 6e 20 6d 61 6b 65 2d 6f |-functio|n make-o|
|00003db0| 62 73 6f 6c 65 74 65 20 | 72 65 61 64 2d 6d 69 6e |bsolete |read-min|
|00003dc0| 69 62 75 66 66 65 72 20 | 72 65 61 64 2d 65 78 70 |ibuffer |read-exp|
|00003dd0| 72 65 73 73 69 6f 6e 20 | 72 65 61 64 2d 69 6e 70 |ression |read-inp|
|00003de0| 75 74 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 72 |ut read-|string r|
|00003df0| 65 61 64 2d 6e 6f 2d 62 | 6c 61 6e 6b 73 2d 69 6e |ead-no-b|lanks-in|
|00003e00| 70 75 74 20 75 73 65 72 | 2d 6f 72 69 67 69 6e 61 |put user|-origina|
|00003e10| 6c 2d 6c 6f 67 69 6e 2d | 6e 61 6d 65 20 75 73 65 |l-login-|name use|
|00003e20| 72 2d 6c 6f 67 69 6e 2d | 6e 61 6d 65 20 77 68 6f |r-login-|name who|
|00003e30| 6c 65 6e 75 6d 70 20 6e | 61 74 6e 75 6d 70 20 73 |lenump n|atnump s|
|00003e40| 68 6f 77 2d 62 75 66 66 | 65 72 20 73 65 74 2d 77 |how-buff|er set-w|
|00003e50| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 20 62 75 66 |indow-bu|ffer buf|
|00003e60| 66 65 72 2d 66 6c 75 73 | 68 2d 75 6e 64 6f 20 62 |fer-flus|h-undo b|
|00003e70| 75 66 66 65 72 2d 64 69 | 73 61 62 6c 65 2d 75 6e |uffer-di|sable-un|
|00003e80| 64 6f 20 65 76 61 6c 2d | 63 75 72 72 65 6e 74 2d |do eval-|current-|
|00003e90| 62 75 66 66 65 72 20 65 | 76 61 6c 2d 62 75 66 66 |buffer e|val-buff|
|00003ea0| 65 72 20 62 79 74 65 2d | 63 6f 64 65 2d 66 75 6e |er byte-|code-fun|
|00003eb0| 63 74 69 6f 6e 2d 70 20 | 63 6f 6d 70 69 6c 65 64 |ction-p |compiled|
|00003ec0| 2d 66 75 6e 63 74 69 6f | 6e 2d 70 20 72 69 6e 67 |-functio|n-p ring|
|00003ed0| 2d 6d 6f 64 20 6d 6f 64 | 20 63 75 72 72 65 6e 74 |-mod mod| current|
|00003ee0| 2d 74 69 6d 65 2d 73 65 | 63 6f 6e 64 73 20 63 75 |-time-se|conds cu|
|00003ef0| 72 72 65 6e 74 2d 74 69 | 6d 65 20 72 75 6e 2d 73 |rrent-ti|me run-s|
|00003f00| 70 65 63 69 61 6c 2d 68 | 6f 6f 6b 2d 77 69 74 68 |pecial-h|ook-with|
|00003f10| 2d 61 72 67 73 20 72 75 | 6e 2d 68 6f 6f 6b 2d 77 |-args ru|n-hook-w|
|00003f20| 69 74 68 2d 61 72 67 73 | 2d 75 6e 74 69 6c 2d 73 |ith-args|-until-s|
|00003f30| 75 63 63 65 73 73 20 6d | 61 6b 65 2d 6f 62 73 6f |uccess m|ake-obso|
|00003f40| 6c 65 74 65 2d 76 61 72 | 69 61 62 6c 65 20 65 78 |lete-var|iable ex|
|00003f50| 65 63 75 74 69 6e 67 2d | 6d 61 63 72 6f 20 65 78 |ecuting-|macro ex|
|00003f60| 65 63 75 74 69 6e 67 2d | 6b 62 64 2d 6d 61 63 72 |ecuting-|kbd-macr|
|00003f70| 6f 20 72 65 64 72 61 77 | 2d 6d 6f 64 65 2d 6c 69 |o redraw|-mode-li|
|00003f80| 6e 65 20 72 65 64 72 61 | 77 2d 6d 6f 64 65 6c 69 |ne redra|w-modeli|
|00003f90| 6e 65 20 66 6f 72 63 65 | 2d 6d 6f 64 65 2d 6c 69 |ne force|-mode-li|
|00003fa0| 6e 65 2d 75 70 64 61 74 | 65 20 6d 6f 64 65 2d 6c |ne-updat|e mode-l|
|00003fb0| 69 6e 65 2d 6d 61 70 20 | 6d 6f 64 65 6c 69 6e 65 |ine-map |modeline|
|00003fc0| 2d 6d 61 70 20 6e 65 77 | 76 61 72 20 6f 6c 64 76 |-map new|var oldv|
|00003fd0| 61 72 20 64 65 66 76 61 | 72 61 6c 69 61 73 20 6d |ar defva|ralias m|
|00003fe0| 61 6b 65 2d 63 6f 6d 70 | 61 74 69 62 6c 65 2d 76 |ake-comp|atible-v|
|00003ff0| 61 72 69 61 62 6c 65 20 | 6d 6f 64 65 2d 6c 69 6e |ariable |mode-lin|
|00004000| 65 2d 62 75 66 66 65 72 | 2d 69 64 65 6e 74 69 66 |e-buffer|-identif|
|00004010| 69 63 61 74 69 6f 6e 20 | 6d 6f 64 65 6c 69 6e 65 |ication |modeline|
|00004020| 2d 62 75 66 66 65 72 2d | 69 64 65 6e 74 69 66 69 |-buffer-|identifi|
|00004030| 63 61 74 69 6f 6e 20 6d | 6f 64 65 2d 6c 69 6e 65 |cation m|ode-line|
|00004040| 2d 70 72 6f 63 65 73 73 | 20 6d 6f 64 65 6c 69 6e |-process| modelin|
|00004050| 65 2d 70 72 6f 63 65 73 | 73 20 6d 6f 64 65 2d 6c |e-proces|s mode-l|
|00004060| 69 6e 65 2d 6d 6f 64 69 | 66 69 65 64 20 6d 6f 64 |ine-modi|fied mod|
|00004070| 65 6c 69 6e 65 2d 6d 6f | 64 69 66 69 65 64 20 6d |eline-mo|dified m|
|00004080| 6f 64 65 2d 6c 69 6e 65 | 2d 69 6e 76 65 72 73 65 |ode-line|-inverse|
|00004090| 2d 76 69 64 65 6f 20 22 | 75 73 65 20 73 65 74 2d |-video "|use set-|
|000040a0| 66 61 63 65 2d 68 69 67 | 68 6c 69 67 68 74 2d 70 |face-hig|hlight-p|
|000040b0| 20 61 6e 64 20 73 65 74 | 2d 66 61 63 65 2d 72 65 | and set|-face-re|
|000040c0| 76 65 72 73 65 2d 70 22 | 20 64 65 66 61 75 6c 74 |verse-p"| default|
|000040d0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 |-mode-li|ne-forma|
|000040e0| 74 20 64 65 66 61 75 6c | 74 2d 6d 6f 64 65 6c 69 |t defaul|t-modeli|
|000040f0| 6e 65 2d 66 6f 72 6d 61 | 74 20 6d 6f 64 65 2d 6c |ne-forma|t mode-l|
|00004100| 69 6e 65 2d 66 6f 72 6d | 61 74 20 6d 6f 64 65 6c |ine-form|at model|
|00004110| 69 6e 65 2d 66 6f 72 6d | 61 74 20 6d 6f 64 65 2d |ine-form|at mode-|
|00004120| 6c 69 6e 65 2d 6d 65 6e | 75 20 6d 6f 64 65 6c 69 |line-men|u modeli|
|00004130| 6e 65 2d 6d 65 6e 75 20 | 6d 6f 75 73 65 2d 65 76 |ne-menu |mouse-ev|
|00004140| 61 6c 2d 6c 61 73 74 2d | 73 65 78 70 72 20 6d 6f |al-last-|sexpr mo|
|00004150| 75 73 65 2d 65 76 61 6c | 2d 73 65 78 70 5d 20 33 |use-eval|-sexp] 3|
|00004160| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 61 |).(defal|ias 'rea|
|00004170| 64 2d 6d 6f 75 73 65 2d | 70 6f 73 69 74 69 6f 6e |d-mouse-|position|
|00004180| 20 23 5b 28 66 72 61 6d | 65 29 20 22 c0 c1 5c 6e | #[(fram|e) "..\n|
|00004190| 21 21 41 87 22 20 5b 6d | 6f 75 73 65 2d 70 6f 73 |!!A." [m|ouse-pos|
|000041a0| 69 74 69 6f 6e 20 66 72 | 61 6d 65 2d 64 65 76 69 |ition fr|ame-devi|
|000041b0| 63 65 20 66 72 61 6d 65 | 5d 20 33 5d 29 0a 28 62 |ce frame|] 3]).(b|
|000041c0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|000041d0| c3 c4 1d 1e 06 c7 0e 06 | 0d 5c 22 88 c0 0e 06 0d |........|.\".....|
|000041e0| 5c 22 88 2a c8 c9 1d 1e | 06 c7 0e 06 0d 5c 22 88 |\".*....|.....\".|
|000041f0| c0 0e 06 0d 5c 22 88 2a | ca cb 1d 1e 06 c7 0e 06 |....\".*|........|
|00004200| 0d 5c 22 88 c0 0e 06 0d | 5c 22 88 2a cc cd 1d 1e |.\".....|\".*....|
|00004210| 06 c7 0e 06 0d 5c 22 88 | c0 0e 06 0d 5c 22 88 2a |.....\".|....\".*|
|00004220| ce cf 1d 1e 06 c7 0e 06 | 0d 5c 22 88 c0 0e 06 0d |........|.\".....|
|00004230| 5c 22 88 2a d0 d1 1d 1e | 06 c7 0e 06 0d 5c 22 88 |\".*....|.....\".|
|00004240| c0 0e 06 0d 5c 22 88 2a | d2 d3 1d 1e 06 c7 0e 06 |....\".*|........|
|00004250| 0d 5c 22 88 c0 0e 06 0d | 5c 22 88 2a d4 d5 1d 1e |.\".....|\".*....|
|00004260| 06 c7 0e 06 0d 5c 22 88 | c0 0e 06 0d 5c 22 88 2a |.....\".|....\".*|
|00004270| c0 87 22 20 5b 6d 61 6b | 65 2d 6f 62 73 6f 6c 65 |.." [mak|e-obsole|
|00004280| 74 65 20 72 65 61 64 2d | 6d 6f 75 73 65 2d 70 6f |te read-|mouse-po|
|00004290| 73 69 74 69 6f 6e 20 6d | 6f 75 73 65 2d 70 6f 73 |sition m|ouse-pos|
|000042a0| 69 74 69 6f 6e 20 64 6f | 74 20 70 6f 69 6e 74 20 |ition do|t point |
|000042b0| 6e 65 77 66 75 6e 20 6f | 6c 64 66 75 6e 20 64 65 |newfun o|ldfun de|
|000042c0| 66 69 6e 65 2d 66 75 6e | 63 74 69 6f 6e 20 64 6f |fine-fun|ction do|
|000042d0| 74 2d 6d 61 72 6b 65 72 | 20 70 6f 69 6e 74 2d 6d |t-marker| point-m|
|000042e0| 61 72 6b 65 72 20 64 6f | 74 2d 6d 69 6e 20 70 6f |arker do|t-min po|
|000042f0| 69 6e 74 2d 6d 69 6e 20 | 64 6f 74 2d 6d 61 78 20 |int-min |dot-max |
|00004300| 70 6f 69 6e 74 2d 6d 61 | 78 20 77 69 6e 64 6f 77 |point-ma|x window|
|00004310| 2d 64 6f 74 20 77 69 6e | 64 6f 77 2d 70 6f 69 6e |-dot win|dow-poin|
|00004320| 74 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 64 6f 74 |t set-wi|ndow-dot|
|00004330| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 70 6f 69 6e | set-win|dow-poin|
|00004340| 74 20 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 70 72 |t send-s|tring pr|
|00004350| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 73 74 72 69 6e |ocess-se|nd-strin|
|00004360| 67 20 73 65 6e 64 2d 72 | 65 67 69 6f 6e 20 70 72 |g send-r|egion pr|
|00004370| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 72 65 67 69 6f |ocess-se|nd-regio|
|00004380| 6e 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |n] 3).(d|efalias |
|00004390| 27 72 65 64 72 61 77 2d | 64 69 73 70 6c 61 79 20 |'redraw-|display |
|000043a0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 64 65 76 |#[(&opti|onal dev|
|000043b0| 69 63 65 29 20 22 08 c1 | 61 ab 86 c2 c3 c4 20 5c |ice) "..|a..... \|
|000043c0| 22 87 c3 08 21 87 22 20 | 5b 64 65 76 69 63 65 20 |"...!." |[device |
|000043d0| 74 20 6d 61 70 63 61 72 | 20 72 65 64 69 73 70 6c |t mapcar| redispl|
|000043e0| 61 79 2d 64 65 76 69 63 | 65 20 64 65 76 69 63 65 |ay-devic|e device|
|000043f0| 2d 6c 69 73 74 5d 20 33 | 5d 29 0a 28 64 65 66 61 |-list] 3|]).(defa|
|00004400| 6c 69 61 73 20 27 73 63 | 72 65 65 6e 2d 73 63 72 |lias 'sc|reen-scr|
|00004410| 6f 6c 6c 62 61 72 2d 77 | 69 64 74 68 20 23 5b 28 |ollbar-w|idth #[(|
|00004420| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 63 72 65 65 6e |&optiona|l screen|
|00004430| 29 20 22 c0 09 5c 6e ae | 82 c3 20 5c 22 87 22 20 |) "..\n.|.. \"." |
|00004440| 5b 73 70 65 63 69 66 69 | 65 72 2d 69 6e 73 74 61 |[specifi|er-insta|
|00004450| 6e 63 65 20 73 63 72 6f | 6c 6c 62 61 72 2d 77 69 |nce scro|llbar-wi|
|00004460| 64 74 68 20 73 63 72 65 | 65 6e 20 73 65 6c 65 63 |dth scre|en selec|
|00004470| 74 65 64 2d 66 72 61 6d | 65 5d 20 33 5d 29 0a 28 |ted-fram|e] 3]).(|
|00004480| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 27 73 |make-obs|olete 's|
|00004490| 63 72 65 65 6e 2d 73 63 | 72 6f 6c 6c 62 61 72 2d |creen-sc|rollbar-|
|000044a0| 77 69 64 74 68 20 22 75 | 73 65 20 28 73 70 65 63 |width "u|se (spec|
|000044b0| 69 66 69 65 72 2d 69 6e | 73 74 61 6e 63 65 20 73 |ifier-in|stance s|
|000044c0| 63 72 6f 6c 6c 62 61 72 | 2d 77 69 64 74 68 20 2e |crollbar|-width .|
|000044d0| 2e 2e 29 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |..).").(|defalias|
|000044e0| 20 27 73 65 74 2d 73 63 | 72 65 65 6e 2d 73 63 72 | 'set-sc|reen-scr|
|000044f0| 6f 6c 6c 62 61 72 2d 77 | 69 64 74 68 20 23 5b 28 |ollbar-w|idth #[(|
|00004500| 73 63 72 65 65 6e 20 76 | 61 6c 75 65 29 20 22 c0 |screen v|alue) ".|
|00004510| 09 5c 6e 0b 42 5c 22 87 | 22 20 5b 73 65 74 2d 73 |.\n.B\".|" [set-s|
|00004520| 70 65 63 69 66 69 65 72 | 20 73 63 72 6f 6c 6c 62 |pecifier| scrollb|
|00004530| 61 72 2d 77 69 64 74 68 | 20 73 63 72 65 65 6e 20 |ar-width| screen |
|00004540| 76 61 6c 75 65 5d 20 34 | 5d 29 0a 28 6d 61 6b 65 |value] 4|]).(make|
|00004550| 2d 6f 62 73 6f 6c 65 74 | 65 20 27 73 65 74 2d 73 |-obsolet|e 'set-s|
|00004560| 63 72 65 65 6e 2d 73 63 | 72 6f 6c 6c 62 61 72 2d |creen-sc|rollbar-|
|00004570| 77 69 64 74 68 20 22 75 | 73 65 20 28 73 65 74 2d |width "u|se (set-|
|00004580| 73 70 65 63 69 66 69 65 | 72 20 73 63 72 6f 6c 6c |specifie|r scroll|
|00004590| 62 61 72 2d 77 69 64 74 | 68 20 2e 2e 2e 29 2e 22 |bar-widt|h ...)."|
|000045a0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 74 |).(defal|ias 'set|
|000045b0| 2d 73 63 72 65 65 6e 2d | 6c 65 66 74 2d 6d 61 72 |-screen-|left-mar|
|000045c0| 67 69 6e 2d 77 69 64 74 | 68 20 23 5b 28 76 61 6c |gin-widt|h #[(val|
|000045d0| 75 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 63 72 |ue &opti|onal scr|
|000045e0| 65 65 6e 29 20 22 c0 09 | 5c 6e ae 82 c3 20 0c 42 |een) "..|\n... .B|
|000045f0| 5c 22 87 22 20 5b 73 65 | 74 2d 73 70 65 63 69 66 |\"." [se|t-specif|
|00004600| 69 65 72 20 6c 65 66 74 | 2d 6d 61 72 67 69 6e 2d |ier left|-margin-|
|00004610| 77 69 64 74 68 20 73 63 | 72 65 65 6e 20 73 65 6c |width sc|reen sel|
|00004620| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 76 61 6c 75 |ected-fr|ame valu|
|00004630| 65 5d 20 34 5d 29 0a 28 | 6d 61 6b 65 2d 6f 62 73 |e] 4]).(|make-obs|
|00004640| 6f 6c 65 74 65 20 27 73 | 65 74 2d 73 63 72 65 65 |olete 's|et-scree|
|00004650| 6e 2d 6c 65 66 74 2d 6d | 61 72 67 69 6e 2d 77 69 |n-left-m|argin-wi|
|00004660| 64 74 68 20 22 75 73 65 | 20 28 73 65 74 2d 73 70 |dth "use| (set-sp|
|00004670| 65 63 69 66 69 65 72 20 | 6c 65 66 74 2d 6d 61 72 |ecifier |left-mar|
|00004680| 67 69 6e 2d 77 69 64 74 | 68 20 2e 2e 2e 29 2e 22 |gin-widt|h ...)."|
|00004690| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 74 |).(defal|ias 'set|
|000046a0| 2d 73 63 72 65 65 6e 2d | 72 69 67 68 74 2d 6d 61 |-screen-|right-ma|
|000046b0| 72 67 69 6e 2d 77 69 64 | 74 68 20 23 5b 28 76 61 |rgin-wid|th #[(va|
|000046c0| 6c 75 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 63 |lue &opt|ional sc|
|000046d0| 72 65 65 6e 29 20 22 c0 | 09 5c 6e ae 82 c3 20 0c |reen) ".|.\n... .|
|000046e0| 42 5c 22 87 22 20 5b 73 | 65 74 2d 73 70 65 63 69 |B\"." [s|et-speci|
|000046f0| 66 69 65 72 20 72 69 67 | 68 74 2d 6d 61 72 67 69 |fier rig|ht-margi|
|00004700| 6e 2d 77 69 64 74 68 20 | 73 63 72 65 65 6e 20 73 |n-width |screen s|
|00004710| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 76 61 |elected-|frame va|
|00004720| 6c 75 65 5d 20 34 5d 29 | 0a 28 6d 61 6b 65 2d 6f |lue] 4])|.(make-o|
|00004730| 62 73 6f 6c 65 74 65 20 | 27 73 65 74 2d 73 63 72 |bsolete |'set-scr|
|00004740| 65 65 6e 2d 72 69 67 68 | 74 2d 6d 61 72 67 69 6e |een-righ|t-margin|
|00004750| 2d 77 69 64 74 68 20 22 | 75 73 65 20 28 73 65 74 |-width "|use (set|
|00004760| 2d 73 70 65 63 69 66 69 | 65 72 20 72 69 67 68 74 |-specifi|er right|
|00004770| 2d 6d 61 72 67 69 6e 2d | 77 69 64 74 68 20 2e 2e |-margin-|width ..|
|00004780| 2e 29 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |.).").(d|efalias |
|00004790| 27 73 65 74 2d 62 75 66 | 66 65 72 2d 6c 65 66 74 |'set-buf|fer-left|
|000047a0| 2d 6d 61 72 67 69 6e 2d | 77 69 64 74 68 20 23 5b |-margin-|width #[|
|000047b0| 28 76 61 6c 75 65 20 26 | 6f 70 74 69 6f 6e 61 6c |(value &|optional|
|000047c0| 20 62 75 66 66 65 72 29 | 20 22 c0 09 5c 6e ae 81 | buffer)| "..\n..|
|000047d0| 70 0b 42 5c 22 87 22 20 | 5b 73 65 74 2d 73 70 65 |p.B\"." |[set-spe|
|000047e0| 63 69 66 69 65 72 20 6c | 65 66 74 2d 6d 61 72 67 |cifier l|eft-marg|
|000047f0| 69 6e 2d 77 69 64 74 68 | 20 62 75 66 66 65 72 20 |in-width| buffer |
|00004800| 76 61 6c 75 65 5d 20 34 | 5d 29 0a 28 6d 61 6b 65 |value] 4|]).(make|
|00004810| 2d 6f 62 73 6f 6c 65 74 | 65 20 27 73 65 74 2d 62 |-obsolet|e 'set-b|
|00004820| 75 66 66 65 72 2d 6c 65 | 66 74 2d 6d 61 72 67 69 |uffer-le|ft-margi|
|00004830| 6e 2d 77 69 64 74 68 20 | 22 75 73 65 20 28 73 65 |n-width |"use (se|
|00004840| 74 2d 73 70 65 63 69 66 | 69 65 72 20 6c 65 66 74 |t-specif|ier left|
|00004850| 2d 6d 61 72 67 69 6e 2d | 77 69 64 74 68 20 2e 2e |-margin-|width ..|
|00004860| 2e 29 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |.).").(d|efalias |
|00004870| 27 73 65 74 2d 62 75 66 | 66 65 72 2d 72 69 67 68 |'set-buf|fer-righ|
|00004880| 74 2d 6d 61 72 67 69 6e | 2d 77 69 64 74 68 20 23 |t-margin|-width #|
|00004890| 5b 28 76 61 6c 75 65 20 | 26 6f 70 74 69 6f 6e 61 |[(value |&optiona|
|000048a0| 6c 20 62 75 66 66 65 72 | 29 20 22 c0 09 5c 6e ae |l buffer|) "..\n.|
|000048b0| 81 70 0b 42 5c 22 87 22 | 20 5b 73 65 74 2d 73 70 |.p.B\"."| [set-sp|
|000048c0| 65 63 69 66 69 65 72 20 | 72 69 67 68 74 2d 6d 61 |ecifier |right-ma|
|000048d0| 72 67 69 6e 2d 77 69 64 | 74 68 20 62 75 66 66 65 |rgin-wid|th buffe|
|000048e0| 72 20 76 61 6c 75 65 5d | 20 34 5d 29 0a 28 6d 61 |r value]| 4]).(ma|
|000048f0| 6b 65 2d 6f 62 73 6f 6c | 65 74 65 20 27 73 65 74 |ke-obsol|ete 'set|
|00004900| 2d 62 75 66 66 65 72 2d | 72 69 67 68 74 2d 6d 61 |-buffer-|right-ma|
|00004910| 72 67 69 6e 2d 77 69 64 | 74 68 20 22 75 73 65 20 |rgin-wid|th "use |
|00004920| 28 73 65 74 2d 73 70 65 | 63 69 66 69 65 72 20 72 |(set-spe|cifier r|
|00004930| 69 67 68 74 2d 6d 61 72 | 67 69 6e 2d 77 69 64 74 |ight-mar|gin-widt|
|00004940| 68 20 2e 2e 2e 29 2e 22 | 29 0a 28 64 65 66 61 6c |h ...)."|).(defal|
|00004950| 69 61 73 20 27 73 63 72 | 65 65 6e 2d 6c 65 66 74 |ias 'scr|een-left|
|00004960| 2d 6d 61 72 67 69 6e 2d | 77 69 64 74 68 20 23 5b |-margin-|width #[|
|00004970| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 63 72 65 65 |(&option|al scree|
|00004980| 6e 29 20 22 c0 09 5c 6e | ae 82 c3 20 5c 22 87 22 |n) "..\n|... \"."|
|00004990| 20 5b 73 70 65 63 69 66 | 69 65 72 2d 73 70 65 63 | [specif|ier-spec|
|000049a0| 73 20 6c 65 66 74 2d 6d | 61 72 67 69 6e 2d 77 69 |s left-m|argin-wi|
|000049b0| 64 74 68 20 73 63 72 65 | 65 6e 20 73 65 6c 65 63 |dth scre|en selec|
|000049c0| 74 65 64 2d 66 72 61 6d | 65 5d 20 33 5d 29 0a 28 |ted-fram|e] 3]).(|
|000049d0| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 27 73 |make-obs|olete 's|
|000049e0| 63 72 65 65 6e 2d 6c 65 | 66 74 2d 6d 61 72 67 69 |creen-le|ft-margi|
|000049f0| 6e 2d 77 69 64 74 68 20 | 22 75 73 65 20 28 73 70 |n-width |"use (sp|
|00004a00| 65 63 69 66 69 65 72 2d | 73 70 65 63 73 20 6c 65 |ecifier-|specs le|
|00004a10| 66 74 2d 6d 61 72 67 69 | 6e 2d 77 69 64 74 68 20 |ft-margi|n-width |
|00004a20| 2e 2e 2e 29 2e 22 29 0a | 28 64 65 66 61 6c 69 61 |...).").|(defalia|
|00004a30| 73 20 27 73 63 72 65 65 | 6e 2d 72 69 67 68 74 2d |s 'scree|n-right-|
|00004a40| 6d 61 72 67 69 6e 2d 77 | 69 64 74 68 20 23 5b 28 |margin-w|idth #[(|
|00004a50| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 63 72 65 65 6e |&optiona|l screen|
|00004a60| 29 20 22 c0 09 5c 6e ae | 82 c3 20 5c 22 87 22 20 |) "..\n.|.. \"." |
|00004a70| 5b 73 70 65 63 69 66 69 | 65 72 2d 73 70 65 63 73 |[specifi|er-specs|
|00004a80| 20 72 69 67 68 74 2d 6d | 61 72 67 69 6e 2d 77 69 | right-m|argin-wi|
|00004a90| 64 74 68 20 73 63 72 65 | 65 6e 20 73 65 6c 65 63 |dth scre|en selec|
|00004aa0| 74 65 64 2d 66 72 61 6d | 65 5d 20 33 5d 29 0a 28 |ted-fram|e] 3]).(|
|00004ab0| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 27 73 |make-obs|olete 's|
|00004ac0| 63 72 65 65 6e 2d 72 69 | 67 68 74 2d 6d 61 72 67 |creen-ri|ght-marg|
|00004ad0| 69 6e 2d 77 69 64 74 68 | 20 22 75 73 65 20 28 73 |in-width| "use (s|
|00004ae0| 70 65 63 69 66 69 65 72 | 2d 73 70 65 63 73 20 72 |pecifier|-specs r|
|00004af0| 69 67 68 74 2d 6d 61 72 | 67 69 6e 2d 77 69 64 74 |ight-mar|gin-widt|
|00004b00| 68 20 2e 2e 2e 29 2e 22 | 29 0a 28 64 65 66 61 6c |h ...)."|).(defal|
|00004b10| 69 61 73 20 27 62 75 66 | 66 65 72 2d 6c 65 66 74 |ias 'buf|fer-left|
|00004b20| 2d 6d 61 72 67 69 6e 2d | 77 69 64 74 68 20 23 5b |-margin-|width #[|
|00004b30| 28 26 6f 70 74 69 6f 6e | 61 6c 20 62 75 66 66 65 |(&option|al buffe|
|00004b40| 72 29 20 22 c0 09 5c 6e | ae 81 70 5c 22 87 22 20 |r) "..\n|..p\"." |
|00004b50| 5b 73 70 65 63 69 66 69 | 65 72 2d 73 70 65 63 73 |[specifi|er-specs|
|00004b60| 20 6c 65 66 74 2d 6d 61 | 72 67 69 6e 2d 77 69 64 | left-ma|rgin-wid|
|00004b70| 74 68 20 62 75 66 66 65 | 72 5d 20 33 5d 29 0a 28 |th buffe|r] 3]).(|
|00004b80| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 27 62 |make-obs|olete 'b|
|00004b90| 75 66 66 65 72 2d 6c 65 | 66 74 2d 6d 61 72 67 69 |uffer-le|ft-margi|
|00004ba0| 6e 2d 77 69 64 74 68 20 | 22 75 73 65 20 28 73 70 |n-width |"use (sp|
|00004bb0| 65 63 69 66 69 65 72 2d | 73 70 65 63 73 20 6c 65 |ecifier-|specs le|
|00004bc0| 66 74 2d 6d 61 72 67 69 | 6e 2d 77 69 64 74 68 20 |ft-margi|n-width |
|00004bd0| 2e 2e 2e 29 2e 22 29 0a | 28 64 65 66 61 6c 69 61 |...).").|(defalia|
|00004be0| 73 20 27 62 75 66 66 65 | 72 2d 72 69 67 68 74 2d |s 'buffe|r-right-|
|00004bf0| 6d 61 72 67 69 6e 2d 77 | 69 64 74 68 20 23 5b 28 |margin-w|idth #[(|
|00004c00| 26 6f 70 74 69 6f 6e 61 | 6c 20 62 75 66 66 65 72 |&optiona|l buffer|
|00004c10| 29 20 22 c0 09 5c 6e ae | 81 70 5c 22 87 22 20 5b |) "..\n.|.p\"." [|
|00004c20| 73 70 65 63 69 66 69 65 | 72 2d 73 70 65 63 73 20 |specifie|r-specs |
|00004c30| 72 69 67 68 74 2d 6d 61 | 72 67 69 6e 2d 77 69 64 |right-ma|rgin-wid|
|00004c40| 74 68 20 62 75 66 66 65 | 72 5d 20 33 5d 29 0a 28 |th buffe|r] 3]).(|
|00004c50| 6d 61 6b 65 2d 6f 62 73 | 6f 6c 65 74 65 20 27 62 |make-obs|olete 'b|
|00004c60| 75 66 66 65 72 2d 72 69 | 67 68 74 2d 6d 61 72 67 |uffer-ri|ght-marg|
|00004c70| 69 6e 2d 77 69 64 74 68 | 20 22 75 73 65 20 28 73 |in-width| "use (s|
|00004c80| 70 65 63 69 66 69 65 72 | 2d 73 70 65 63 73 20 72 |pecifier|-specs r|
|00004c90| 69 67 68 74 2d 6d 61 72 | 67 69 6e 2d 77 69 64 74 |ight-mar|gin-widt|
|00004ca0| 68 20 2e 2e 2e 29 2e 22 | 29 0a 23 40 37 37 39 20 |h ...)."|).#@779 |
|00004cb0| 53 65 74 20 74 68 65 20 | 69 63 6f 6e 20 6f 66 20 |Set the |icon of |
|00004cc0| 74 68 65 20 67 69 76 65 | 6e 20 66 72 61 6d 65 20 |the give|n frame |
|00004cd0| 74 6f 20 74 68 65 20 67 | 69 76 65 6e 20 69 6d 61 |to the g|iven ima|
|00004ce0| 67 65 20 69 6e 73 74 61 | 6e 63 65 2c 0a 77 68 69 |ge insta|nce,.whi|
|00004cf0| 63 68 20 73 68 6f 75 6c | 64 20 62 65 20 61 6e 20 |ch shoul|d be an |
|00004d00| 69 6d 61 67 65 20 69 6e | 73 74 61 6e 63 65 20 6f |image in|stance o|
|00004d10| 62 6a 65 63 74 20 28 61 | 73 20 72 65 74 75 72 6e |bject (a|s return|
|00004d20| 65 64 20 62 79 0a 60 6d | 61 6b 65 2d 69 6d 61 67 |ed by.`m|ake-imag|
|00004d30| 65 2d 69 6e 73 74 61 6e | 63 65 27 29 2c 20 61 20 |e-instan|ce'), a |
|00004d40| 67 6c 79 70 68 20 6f 62 | 6a 65 63 74 20 28 61 73 |glyph ob|ject (as|
|00004d50| 20 72 65 74 75 72 6e 65 | 64 20 62 79 20 60 6d 61 | returne|d by `ma|
|00004d60| 6b 65 2d 67 6c 79 70 68 | 27 29 2c 0a 6f 72 20 6e |ke-glyph|'),.or n|
|00004d70| 69 6c 2e 20 20 49 66 20 | 61 20 67 6c 79 70 68 20 |il.  If |a glyph |
|00004d80| 6f 62 6a 65 63 74 20 69 | 73 20 67 69 76 65 6e 2c |object i|s given,|
|00004d90| 20 74 68 65 20 67 6c 79 | 70 68 20 77 69 6c 6c 20 | the gly|ph will |
|00004da0| 62 65 20 69 6e 73 74 61 | 6e 74 69 61 74 65 64 20 |be insta|ntiated |
|00004db0| 6f 6e 0a 74 68 65 20 66 | 72 61 6d 65 20 74 6f 20 |on.the f|rame to |
|00004dc0| 70 72 6f 64 75 63 65 20 | 61 6e 20 69 6d 61 67 65 |produce |an image|
|00004dd0| 20 69 6e 73 74 61 6e 63 | 65 20 6f 62 6a 65 63 74 | instanc|e object|
|00004de0| 2e 0a 0a 49 66 20 74 68 | 65 20 67 69 76 65 6e 20 |...If th|e given |
|00004df0| 69 6d 61 67 65 20 69 6e | 73 74 61 6e 63 65 20 68 |image in|stance h|
|00004e00| 61 73 20 61 20 6d 61 73 | 6b 2c 20 74 68 61 74 20 |as a mas|k, that |
|00004e10| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 20 61 73 20 |will be |used as |
|00004e20| 74 68 65 20 69 63 6f 6e | 20 6d 61 73 6b 3b 0a 68 |the icon| mask;.h|
|00004e30| 6f 77 65 76 65 72 2c 20 | 6e 6f 74 20 61 6c 6c 20 |owever, |not all |
|00004e40| 77 69 6e 64 6f 77 20 6d | 61 6e 61 67 65 72 73 20 |window m|anagers |
|00004e50| 73 75 70 70 6f 72 74 20 | 74 68 69 73 2e 0a 0a 54 |support |this...T|
|00004e60| 68 65 20 77 69 6e 64 6f | 77 20 6d 61 6e 61 67 65 |he windo|w manage|
|00004e70| 72 20 69 73 20 61 6c 73 | 6f 20 6e 6f 74 20 72 65 |r is als|o not re|
|00004e80| 71 75 69 72 65 64 20 74 | 6f 20 73 75 70 70 6f 72 |quired t|o suppor|
|00004e90| 74 20 63 6f 6c 6f 72 20 | 70 69 78 6d 61 70 73 2c |t color |pixmaps,|
|00004ea0| 0a 6f 6e 6c 79 20 62 69 | 74 6d 61 70 73 20 28 6f |.only bi|tmaps (o|
|00004eb0| 6e 65 20 70 6c 61 6e 65 | 20 64 65 65 70 29 2e 0a |ne plane| deep)..|
|00004ec0| 0a 4f 70 74 69 6f 6e 61 | 6c 20 74 68 69 72 64 20 |.Optiona|l third |
|00004ed0| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 69 67 6e 6f |argument| is igno|
|00004ee0| 72 65 64 2e 20 20 49 66 | 20 79 6f 75 27 72 65 20 |red.  If| you're |
|00004ef0| 63 6f 6e 63 65 72 6e 65 | 64 20 61 62 6f 75 74 20 |concerne|d about |
|00004f00| 74 68 69 73 0a 69 6e 63 | 6f 6d 70 6c 65 74 65 20 |this.inc|omplete |
|00004f10| 62 61 63 6b 77 61 72 64 | 73 20 69 6e 63 6f 6d 70 |backward|s incomp|
|00004f20| 61 74 69 62 69 6c 69 74 | 79 2c 20 79 6f 75 20 73 |atibilit|y, you s|
|00004f30| 68 6f 75 6c 64 20 63 6f | 6e 76 65 72 74 20 79 6f |hould co|nvert yo|
|00004f40| 75 72 20 63 6f 64 65 0a | 74 6f 20 75 73 65 20 60 |ur code.|to use `|
|00004f50| 66 72 61 6d 65 2d 69 63 | 6f 6e 2d 67 6c 79 70 68 |frame-ic|on-glyph|
|00004f60| 27 20 2d 2d 20 79 6f 75 | 20 63 61 6e 20 73 70 65 |' -- you| can spe|
|00004f70| 63 69 66 79 20 61 20 6d | 61 73 6b 20 66 6f 72 20 |cify a m|ask for |
|00004f80| 61 6e 20 58 42 4d 20 66 | 69 6c 65 0a 75 73 69 6e |an XBM f|ile.usin|
|00004f90| 67 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 69 |g the st|andard i|
|00004fa0| 6d 61 67 65 20 69 6e 73 | 74 61 6e 74 69 61 74 6f |mage ins|tantiato|
|00004fb0| 72 20 66 6f 72 6d 61 74 | 2e 1f 0a 28 64 65 66 61 |r format|...(defa|
|00004fc0| 6c 69 61 73 20 27 78 2d | 73 65 74 2d 66 72 61 6d |lias 'x-|set-fram|
|00004fd0| 65 2d 69 63 6f 6e 2d 70 | 69 78 6d 61 70 20 23 5b |e-icon-p|ixmap #[|
|00004fe0| 28 66 72 61 6d 65 20 69 | 6d 61 67 65 2d 69 6e 73 |(frame i|mage-ins|
|00004ff0| 74 61 6e 63 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |tance &o|ptional |
|00005000| 6d 61 73 6b 2d 69 67 6e | 6f 72 65 64 29 20 22 c0 |mask-ign|ored) ".|
|00005010| 09 21 ab 85 c2 09 0b 5c | 22 11 c4 0d 09 0b 23 87 |.!.....\|".....#.|
|00005020| 22 20 5b 67 6c 79 70 68 | 70 20 69 6d 61 67 65 2d |" [glyph|p image-|
|00005030| 69 6e 73 74 61 6e 63 65 | 20 67 6c 79 70 68 2d 69 |instance| glyph-i|
|00005040| 6d 61 67 65 2d 69 6e 73 | 74 61 6e 63 65 20 66 72 |mage-ins|tance fr|
|00005050| 61 6d 65 20 73 65 74 2d | 67 6c 79 70 68 2d 69 6d |ame set-|glyph-im|
|00005060| 61 67 65 20 66 72 61 6d | 65 2d 69 63 6f 6e 2d 67 |age fram|e-icon-g|
|00005070| 6c 79 70 68 5d 20 34 20 | 28 23 24 20 2e 20 31 39 |lyph] 4 |(#$ . 19|
|00005080| 36 33 32 29 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |632)]).(|byte-cod|
|00005090| 65 20 22 c0 c1 c2 5c 22 | 88 c3 c4 c1 5c 22 88 c0 |e "...\"|....\"..|
|000050a0| c4 c2 5c 22 88 c5 c6 1e | 07 1e 08 c9 0e 08 0e 07 |..\"....|........|
|000050b0| 5c 22 88 c0 0e 08 0e 07 | 5c 22 88 2a c0 87 22 20 |\"......|\".*.." |
|000050c0| 5b 6d 61 6b 65 2d 6f 62 | 73 6f 6c 65 74 65 20 78 |[make-ob|solete x|
|000050d0| 2d 73 65 74 2d 66 72 61 | 6d 65 2d 69 63 6f 6e 2d |-set-fra|me-icon-|
|000050e0| 70 69 78 6d 61 70 20 22 | 75 73 65 20 28 73 65 74 |pixmap "|use (set|
|000050f0| 2d 67 6c 79 70 68 2d 69 | 6d 61 67 65 20 66 72 61 |-glyph-i|mage fra|
|00005100| 6d 65 2d 69 63 6f 6e 2d | 67 6c 79 70 68 20 2e 2e |me-icon-|glyph ..|
|00005110| 2e 29 2e 22 20 64 65 66 | 61 6c 69 61 73 20 78 2d |.)." def|alias x-|
|00005120| 73 65 74 2d 73 63 72 65 | 65 6e 2d 69 63 6f 6e 2d |set-scre|en-icon-|
|00005130| 70 69 78 6d 61 70 20 70 | 69 78 65 6c 2d 6e 61 6d |pixmap p|ixel-nam|
|00005140| 65 20 63 6f 6c 6f 72 2d | 6e 61 6d 65 20 6e 65 77 |e color-|name new|
|00005150| 66 75 6e 20 6f 6c 64 66 | 75 6e 20 64 65 66 69 6e |fun oldf|un defin|
|00005160| 65 2d 66 75 6e 63 74 69 | 6f 6e 5d 20 33 29 0a 23 |e-functi|on] 3).#|
|00005170| 40 31 30 38 32 20 43 72 | 65 61 74 65 20 61 20 67 |@1082 Cr|eate a g|
|00005180| 6c 79 70 68 20 77 69 74 | 68 20 4e 41 4d 45 20 61 |lyph wit|h NAME a|
|00005190| 73 20 61 6e 20 69 6d 61 | 67 65 20 73 70 65 63 69 |s an ima|ge speci|
|000051a0| 66 69 65 72 20 61 6e 64 | 20 6c 6f 63 61 6c 65 20 |fier and| locale |
|000051b0| 4c 4f 43 41 4c 45 2e 0a | 54 68 65 20 66 69 6c 65 |LOCALE..|The file|
|000051c0| 20 73 68 6f 75 6c 64 20 | 62 65 20 69 6e 20 60 58 | should |be in `X|
|000051d0| 42 4d 27 20 6f 72 20 60 | 58 50 4d 27 20 66 6f 72 |BM' or `|XPM' for|
|000051e0| 6d 61 74 2e 0a 49 66 20 | 74 68 65 20 58 42 4d 4c |mat..If |the XBML|
|000051f0| 41 4e 47 50 41 54 48 20 | 65 6e 76 69 72 6f 6e 6d |ANGPATH |environm|
|00005200| 65 6e 74 20 76 61 72 69 | 61 62 6c 65 20 69 73 20 |ent vari|able is |
|00005210| 73 65 74 2c 20 69 74 20 | 77 69 6c 6c 20 62 65 20 |set, it |will be |
|00005220| 73 65 61 72 63 68 65 64 | 20 66 6f 72 0a 20 6d 61 |searched| for. ma|
|00005230| 74 63 68 69 6e 67 20 66 | 69 6c 65 73 2e 20 20 4e |tching f|iles.  N|
|00005240| 65 78 74 2c 20 74 68 65 | 20 64 69 72 65 63 74 6f |ext, the| directo|
|00005250| 72 69 65 73 20 6c 69 73 | 74 65 64 20 69 6e 20 74 |ries lis|ted in t|
|00005260| 68 65 20 60 78 2d 62 69 | 74 6d 61 70 2d 66 69 6c |he `x-bi|tmap-fil|
|00005270| 65 2d 70 61 74 68 27 0a | 20 76 61 72 69 61 62 6c |e-path'.| variabl|
|00005280| 65 20 77 69 6c 6c 20 62 | 65 20 73 65 61 72 63 68 |e will b|e search|
|00005290| 65 64 20 28 74 68 69 73 | 20 76 61 72 69 61 62 6c |ed (this| variabl|
|000052a0| 65 20 69 73 20 69 6e 69 | 74 69 61 6c 69 7a 65 64 |e is ini|tialized|
|000052b0| 20 66 72 6f 6d 20 74 68 | 65 0a 20 22 2a 62 69 74 | from th|e. "*bit|
|000052c0| 6d 61 70 46 69 6c 65 50 | 61 74 68 22 20 72 65 73 |mapFileP|ath" res|
|000052d0| 6f 75 72 63 65 29 2e 20 | 20 46 69 6e 61 6c 6c 79 |ource). | Finally|
|000052e0| 2c 20 74 68 65 20 58 45 | 6d 61 63 73 20 65 74 63 |, the XE|macs etc|
|000052f0| 2f 20 64 69 72 65 63 74 | 6f 72 79 0a 20 28 74 68 |/ direct|ory. (th|
|00005300| 65 20 76 61 6c 75 65 20 | 6f 66 20 60 64 61 74 61 |e value |of `data|
|00005310| 2d 64 69 72 65 63 74 6f | 72 79 27 29 20 77 69 6c |-directo|ry') wil|
|00005320| 6c 20 62 65 20 73 65 61 | 72 63 68 65 64 2e 0a 54 |l be sea|rched..T|
|00005330| 68 65 20 66 69 6c 65 20 | 61 72 67 75 6d 65 6e 74 |he file |argument|
|00005340| 20 6d 61 79 20 61 6c 73 | 6f 20 62 65 20 61 20 6c | may als|o be a l|
|00005350| 69 73 74 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 20 |ist of t|he form |
|00005360| 28 77 69 64 74 68 20 68 | 65 69 67 68 74 20 64 61 |(width h|eight da|
|00005370| 74 61 29 20 77 68 65 72 | 65 0a 20 77 69 64 74 68 |ta) wher|e. width|
|00005380| 20 61 6e 64 20 68 65 69 | 67 68 74 20 61 72 65 20 | and hei|ght are |
|00005390| 74 68 65 20 73 69 7a 65 | 20 69 6e 20 70 69 78 65 |the size| in pixe|
|000053a0| 6c 73 2c 20 61 6e 64 20 | 64 61 74 61 20 69 73 20 |ls, and |data is |
|000053b0| 61 20 73 74 72 69 6e 67 | 2c 20 63 6f 6e 74 61 69 |a string|, contai|
|000053c0| 6e 69 6e 67 0a 20 74 68 | 65 20 72 61 77 20 62 69 |ning. th|e raw bi|
|000053d0| 74 73 20 6f 66 20 74 68 | 65 20 62 69 74 6d 61 70 |ts of th|e bitmap|
|000053e0| 2e 20 20 28 42 69 74 6d | 61 70 73 20 73 70 65 63 |.  (Bitm|aps spec|
|000053f0| 69 66 69 65 64 20 74 68 | 69 73 20 77 61 79 20 63 |ified th|is way c|
|00005400| 61 6e 20 6f 6e 6c 79 20 | 62 65 20 6f 6e 65 20 62 |an only |be one b|
|00005410| 69 74 0a 20 64 65 65 70 | 2e 29 0a 49 66 20 63 6f |it. deep|.).If co|
|00005420| 6d 70 69 6c 65 64 20 77 | 69 74 68 20 73 75 70 70 |mpiled w|ith supp|
|00005430| 6f 72 74 20 66 6f 72 20 | 58 50 4d 2c 20 74 68 65 |ort for |XPM, the|
|00005440| 20 66 69 6c 65 20 61 72 | 67 75 6d 65 6e 74 20 6d | file ar|gument m|
|00005450| 61 79 20 61 6c 73 6f 20 | 62 65 20 61 20 73 74 72 |ay also |be a str|
|00005460| 69 6e 67 0a 20 77 68 69 | 63 68 20 69 73 20 74 68 |ing. whi|ch is th|
|00005470| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 61 6e |e conten|ts of an|
|00005480| 20 58 50 4d 20 66 69 6c | 65 20 28 74 68 61 74 20 | XPM fil|e (that |
|00005490| 69 73 2c 20 61 20 73 74 | 72 69 6e 67 20 62 65 67 |is, a st|ring beg|
|000054a0| 69 6e 6e 69 6e 67 20 77 | 69 74 68 20 74 68 65 0a |inning w|ith the.|
|000054b0| 20 63 68 61 72 61 63 74 | 65 72 73 20 22 2f 2a 20 | charact|ers "/* |
|000054c0| 58 50 4d 20 2a 2f 22 3b | 20 73 65 65 20 74 68 65 |XPM */";| see the|
|000054d0| 20 58 50 4d 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | XPM doc|umentati|
|000054e0| 6f 6e 29 2e 0a 54 68 65 | 20 6f 70 74 69 6f 6e 61 |on)..The| optiona|
|000054f0| 6c 20 73 65 63 6f 6e 64 | 20 61 72 67 75 6d 65 6e |l second| argumen|
|00005500| 74 20 69 73 20 74 68 65 | 20 73 70 65 63 69 66 69 |t is the| specifi|
|00005510| 65 72 20 6c 6f 63 61 6c | 65 20 66 6f 72 20 74 68 |er local|e for th|
|00005520| 69 73 20 70 69 78 6d 61 | 70 20 67 6c 79 70 68 2e |is pixma|p glyph.|
|00005530| 0a 54 68 65 20 72 65 74 | 75 72 6e 65 64 20 6f 62 |.The ret|urned ob|
|00005540| 6a 65 63 74 20 69 73 20 | 61 20 67 6c 79 70 68 20 |ject is |a glyph |
|00005550| 6f 62 6a 65 63 74 2e 20 | 20 54 6f 20 67 65 74 20 |object. | To get |
|00005560| 74 68 65 20 61 63 74 75 | 61 6c 20 70 69 78 6d 61 |the actu|al pixma|
|00005570| 70 20 6f 62 6a 65 63 74 | 20 66 6f 72 0a 61 20 67 |p object| for.a g|
|00005580| 69 76 65 6e 20 66 72 61 | 6d 65 2c 20 75 73 65 20 |iven fra|me, use |
|00005590| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 60 67 6c |the func|tion `gl|
|000055a0| 79 70 68 2d 69 6e 73 74 | 61 6e 63 65 27 2e 1f 0a |yph-inst|ance'...|
|000055b0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 6b 65 2d |(defalia|s 'make-|
|000055c0| 70 69 78 6d 61 70 20 23 | 5b 28 6e 61 6d 65 20 26 |pixmap #|[(name &|
|000055d0| 6f 70 74 69 6f 6e 61 6c | 20 6c 6f 63 61 6c 65 29 |optional| locale)|
|000055e0| 20 22 08 3a ab 86 c1 c2 | c3 08 23 10 c4 08 21 87 | ".:....|..#...!.|
|000055f0| 22 20 5b 6e 61 6d 65 20 | 76 65 63 74 6f 72 20 78 |" [name |vector x|
|00005600| 62 6d 20 3a 64 61 74 61 | 20 6d 61 6b 65 2d 67 6c |bm :data| make-gl|
|00005610| 79 70 68 5d 20 34 20 28 | 23 24 20 2e 20 32 30 38 |yph] 4 (|#$ . 208|
|00005620| 35 34 29 5d 29 0a 28 6d | 61 6b 65 2d 6f 62 73 6f |54)]).(m|ake-obso|
|00005630| 6c 65 74 65 20 27 6d 61 | 6b 65 2d 70 69 78 6d 61 |lete 'ma|ke-pixma|
|00005640| 70 20 27 6d 61 6b 65 2d | 67 6c 79 70 68 29 0a 23 |p 'make-|glyph).#|
|00005650| 40 31 36 37 33 20 43 72 | 65 61 74 65 73 20 61 20 |@1673 Cr|eates a |
|00005660| 70 6f 69 6e 74 65 72 20 | 69 6d 61 67 65 20 69 6e |pointer |image in|
|00005670| 73 74 61 6e 63 65 20 77 | 69 74 68 20 4e 41 4d 45 |stance w|ith NAME|
|00005680| 20 61 73 20 61 6e 20 69 | 6d 61 67 65 20 73 70 65 | as an i|mage spe|
|00005690| 63 69 66 69 65 72 2e 0a | 54 68 65 20 6f 70 74 69 |cifier..|The opti|
|000056a0| 6f 6e 61 6c 20 73 65 63 | 6f 6e 64 20 61 6e 64 20 |onal sec|ond and |
|000056b0| 74 68 69 72 64 20 61 72 | 67 75 6d 65 6e 74 73 20 |third ar|guments |
|000056c0| 61 72 65 20 74 68 65 20 | 66 6f 72 65 67 72 6f 75 |are the |foregrou|
|000056d0| 6e 64 20 61 6e 64 20 62 | 61 63 6b 67 72 6f 75 6e |nd and b|ackgroun|
|000056e0| 64 0a 20 63 6f 6c 6f 72 | 73 2e 20 20 54 68 65 79 |d. color|s.  They|
|000056f0| 20 6d 61 79 20 62 65 20 | 63 6f 6c 6f 72 20 6e 61 | may be |color na|
|00005700| 6d 65 20 73 74 72 69 6e | 67 73 20 6f 72 20 60 70 |me strin|gs or `p|
|00005710| 69 78 65 6c 27 20 6f 62 | 6a 65 63 74 73 2e 0a 54 |ixel' ob|jects..T|
|00005720| 68 65 20 6f 70 74 69 6f | 6e 61 6c 20 66 6f 75 72 |he optio|nal four|
|00005730| 74 68 20 61 72 67 75 6d | 65 6e 74 20 69 73 20 74 |th argum|ent is t|
|00005740| 68 65 20 64 65 76 69 63 | 65 20 6f 6e 20 77 68 69 |he devic|e on whi|
|00005750| 63 68 20 74 6f 20 61 6c | 6c 6f 63 61 74 65 20 74 |ch to al|locate t|
|00005760| 68 65 20 63 75 72 73 6f | 72 0a 20 28 64 65 66 61 |he curso|r. (defa|
|00005770| 75 6c 74 73 20 74 6f 20 | 74 68 65 20 73 65 6c 65 |ults to |the sele|
|00005780| 63 74 65 64 20 64 65 76 | 69 63 65 29 2e 0a 54 68 |cted dev|ice)..Th|
|00005790| 69 73 20 61 6c 6c 6f 63 | 61 74 65 73 20 61 20 6e |is alloc|ates a n|
|000057a0| 65 77 20 70 6f 69 6e 74 | 65 72 20 69 6e 20 74 68 |ew point|er in th|
|000057b0| 65 20 58 20 73 65 72 76 | 65 72 2c 20 61 6e 64 20 |e X serv|er, and |
|000057c0| 73 69 67 6e 61 6c 73 20 | 61 6e 20 65 72 72 6f 72 |signals |an error|
|000057d0| 20 69 66 20 74 68 65 0a | 20 70 6f 69 6e 74 65 72 | if the.| pointer|
|000057e0| 20 69 73 20 75 6e 6b 6e | 6f 77 6e 20 6f 72 20 63 | is unkn|own or c|
|000057f0| 61 6e 6e 6f 74 20 62 65 | 20 61 6c 6c 6f 63 61 74 |annot be| allocat|
|00005800| 65 64 2e 0a 0a 41 20 70 | 6f 69 6e 74 65 72 20 6e |ed...A p|ointer n|
|00005810| 61 6d 65 20 63 61 6e 20 | 74 61 6b 65 20 6d 61 6e |ame can |take man|
|00005820| 79 20 64 69 66 66 65 72 | 65 6e 74 20 66 6f 72 6d |y differ|ent form|
|00005830| 73 2e 20 20 49 74 20 63 | 61 6e 20 62 65 3a 0a 20 |s.  It c|an be:. |
|00005840| 2d 20 61 6e 79 20 6f 66 | 20 74 68 65 20 73 74 61 |- any of| the sta|
|00005850| 6e 64 61 72 64 20 63 75 | 72 73 6f 72 20 6e 61 6d |ndard cu|rsor nam|
|00005860| 65 73 20 66 72 6f 6d 20 | 61 70 70 65 6e 64 69 78 |es from |appendix|
|00005870| 20 42 20 6f 66 20 74 68 | 65 20 58 6c 69 62 20 6d | B of th|e Xlib m|
|00005880| 61 6e 75 61 6c 0a 20 20 | 20 28 61 6c 73 6f 20 6b |anual.  | (also k|
|00005890| 6e 6f 77 6e 20 61 73 20 | 74 68 65 20 66 69 6c 65 |nown as |the file|
|000058a0| 20 3c 58 31 31 2f 63 75 | 72 73 6f 72 66 6f 6e 74 | <X11/cu|rsorfont|
|000058b0| 2e 68 3e 29 20 6d 69 6e | 75 73 20 74 68 65 20 58 |.h>) min|us the X|
|000058c0| 43 5f 20 70 72 65 66 69 | 78 3b 0a 20 2d 20 74 68 |C_ prefi|x;. - th|
|000058d0| 65 20 6e 61 6d 65 20 6f | 66 20 61 20 66 6f 6e 74 |e name o|f a font|
|000058e0| 2c 20 61 6e 64 20 67 6c | 79 70 68 20 69 6e 64 65 |, and gl|yph inde|
|000058f0| 78 20 69 6e 74 6f 20 69 | 74 20 6f 66 20 74 68 65 |x into i|t of the|
|00005900| 20 66 6f 72 6d 0a 20 20 | 20 22 46 4f 4e 54 20 66 | form.  | "FONT f|
|00005910| 6f 6e 74 6e 61 6d 65 20 | 69 6e 64 65 78 20 5b 5b |ontname |index [[|
|00005920| 6d 61 73 6b 2d 66 6f 6e | 74 5d 20 6d 61 73 6b 2d |mask-fon|t] mask-|
|00005930| 69 6e 64 65 78 5d 22 3b | 0a 20 2d 20 74 68 65 20 |index]";|. - the |
|00005940| 6e 61 6d 65 20 6f 66 20 | 61 20 62 69 74 6d 61 70 |name of |a bitmap|
|00005950| 20 6f 72 20 70 69 78 6d | 61 70 20 66 69 6c 65 3b | or pixm|ap file;|
|00005960| 0a 20 2d 20 6f 72 20 61 | 6e 20 69 6d 61 67 65 20 |. - or a|n image |
|00005970| 69 6e 73 74 61 6e 63 65 | 20 6f 62 6a 65 63 74 2c |instance| object,|
|00005980| 20 61 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 | as retu|rned by |
|00005990| 60 6d 61 6b 65 2d 69 6d | 61 67 65 2d 69 6e 73 74 |`make-im|age-inst|
|000059a0| 61 6e 63 65 27 2e 0a 0a | 49 66 20 69 74 20 69 73 |ance'...|If it is|
|000059b0| 20 61 6e 20 69 6d 61 67 | 65 20 69 6e 73 74 61 6e | an imag|e instan|
|000059c0| 63 65 20 6f 72 20 70 69 | 78 6d 61 70 20 66 69 6c |ce or pi|xmap fil|
|000059d0| 65 2c 20 61 6e 64 20 74 | 68 61 74 20 70 69 78 6d |e, and t|hat pixm|
|000059e0| 61 70 20 63 6f 6d 65 73 | 20 77 69 74 68 20 61 0a |ap comes| with a.|
|000059f0| 20 6d 61 73 6b 2c 20 74 | 68 65 6e 20 74 68 61 74 | mask, t|hen that|
|00005a00| 20 6d 61 73 6b 20 77 69 | 6c 6c 20 62 65 20 75 73 | mask wi|ll be us|
|00005a10| 65 64 2e 20 20 49 66 20 | 69 74 20 69 73 20 61 6e |ed.  If |it is an|
|00005a20| 20 69 6d 61 67 65 20 69 | 6e 73 74 61 6e 63 65 2c | image i|nstance,|
|00005a30| 20 69 74 20 6d 75 73 74 | 0a 20 68 61 76 65 20 6f | it must|. have o|
|00005a40| 6e 6c 79 20 6f 6e 65 20 | 70 6c 61 6e 65 2c 20 73 |nly one |plane, s|
|00005a50| 69 6e 63 65 20 58 20 70 | 6f 69 6e 74 65 72 73 20 |ince X p|ointers |
|00005a60| 6d 61 79 20 6f 6e 6c 79 | 20 68 61 76 65 20 74 77 |may only| have tw|
|00005a70| 6f 20 63 6f 6c 6f 72 73 | 2e 20 20 49 66 20 69 74 |o colors|.  If it|
|00005a80| 20 69 73 20 61 0a 20 70 | 69 78 6d 61 70 20 66 69 | is a. p|ixmap fi|
|00005a90| 6c 65 2c 20 74 68 65 6e | 20 74 68 65 20 66 69 6c |le, then| the fil|
|00005aa0| 65 20 77 69 6c 6c 20 62 | 65 20 72 65 61 64 20 69 |e will b|e read i|
|00005ab0| 6e 20 6d 6f 6e 6f 63 68 | 72 6f 6d 65 2e 0a 0a 49 |n monoch|rome...I|
|00005ac0| 66 20 69 74 20 69 73 20 | 61 20 62 69 74 6d 61 70 |f it is |a bitmap|
|00005ad0| 20 66 69 6c 65 2c 20 61 | 6e 64 20 69 66 20 61 20 | file, a|nd if a |
|00005ae0| 62 69 74 6d 61 70 20 66 | 69 6c 65 20 77 68 6f 73 |bitmap f|ile whos|
|00005af0| 65 20 6e 61 6d 65 20 69 | 73 20 74 68 65 20 6e 61 |e name i|s the na|
|00005b00| 6d 65 20 6f 66 20 74 68 | 65 0a 20 70 6f 69 6e 74 |me of th|e. point|
|00005b10| 65 72 20 77 69 74 68 20 | 22 6d 73 6b 22 20 6f 72 |er with |"msk" or|
|00005b20| 20 22 4d 61 73 6b 22 20 | 61 70 70 65 6e 64 65 64 | "Mask" |appended|
|00005b30| 20 65 78 69 73 74 73 2c | 20 74 68 65 6e 20 74 68 | exists,| then th|
|00005b40| 61 74 20 73 65 63 6f 6e | 64 20 62 69 74 6d 61 70 |at secon|d bitmap|
|00005b50| 0a 20 77 69 6c 6c 20 62 | 65 20 75 73 65 64 20 61 |. will b|e used a|
|00005b60| 73 20 74 68 65 20 6d 61 | 73 6b 2e 20 20 46 6f 72 |s the ma|sk.  For|
|00005b70| 20 65 78 61 6d 70 6c 65 | 2c 20 61 20 70 61 69 72 | example|, a pair|
|00005b80| 20 6f 66 20 66 69 6c 65 | 73 20 6d 69 67 68 74 20 | of file|s might |
|00005b90| 62 65 20 6e 61 6d 65 64 | 0a 20 22 70 6f 69 6e 74 |be named|. "point|
|00005ba0| 65 72 2e 78 62 6d 22 20 | 61 6e 64 20 22 70 6f 69 |er.xbm" |and "poi|
|00005bb0| 6e 74 65 72 2e 78 62 6d | 6d 73 6b 22 2e 0a 0a 54 |nter.xbm|msk"...T|
|00005bc0| 68 65 20 72 65 74 75 72 | 6e 65 64 20 6f 62 6a 65 |he retur|ned obje|
|00005bd0| 63 74 20 69 73 20 61 20 | 6e 6f 72 6d 61 6c 2c 20 |ct is a |normal, |
|00005be0| 66 69 72 73 74 2d 63 6c | 61 73 73 20 6c 69 73 70 |first-cl|ass lisp|
|00005bf0| 20 6f 62 6a 65 63 74 2e | 20 20 54 68 65 20 77 61 | object.|  The wa|
|00005c00| 79 20 79 6f 75 0a 60 64 | 65 61 6c 6c 6f 63 61 74 |y you.`d|eallocat|
|00005c10| 65 27 20 74 68 65 20 70 | 6f 69 6e 74 65 72 20 69 |e' the p|ointer i|
|00005c20| 73 20 74 68 65 20 77 61 | 79 20 79 6f 75 20 64 65 |s the wa|y you de|
|00005c30| 61 6c 6c 6f 63 61 74 65 | 20 61 6e 79 20 6f 74 68 |allocate| any oth|
|00005c40| 65 72 20 6c 69 73 70 20 | 6f 62 6a 65 63 74 3a 0a |er lisp |object:.|
|00005c50| 79 6f 75 20 64 72 6f 70 | 20 61 6c 6c 20 70 6f 69 |you drop| all poi|
|00005c60| 6e 74 65 72 73 20 74 6f | 20 69 74 20 61 6e 64 20 |nters to| it and |
|00005c70| 61 6c 6c 6f 77 20 69 74 | 20 74 6f 20 62 65 20 67 |allow it| to be g|
|00005c80| 61 72 62 61 67 65 20 63 | 6f 6c 6c 65 63 74 65 64 |arbage c|ollected|
|00005c90| 2e 20 20 57 68 65 6e 0a | 74 68 65 73 65 20 6f 62 |.  When.|these ob|
|00005ca0| 6a 65 63 74 73 20 61 72 | 65 20 47 43 65 64 2c 20 |jects ar|e GCed, |
|00005cb0| 74 68 65 20 75 6e 64 65 | 72 6c 79 69 6e 67 20 58 |the unde|rlying X|
|00005cc0| 20 64 61 74 61 20 69 73 | 20 64 65 61 6c 6c 6f 63 | data is| dealloc|
|00005cd0| 61 74 65 64 20 61 73 20 | 77 65 6c 6c 2e 1f 0a 28 |ated as |well...(|
|00005ce0| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 6b 65 2d 63 |defalias| 'make-c|
|00005cf0| 75 72 73 6f 72 20 23 5b | 28 6e 61 6d 65 20 26 6f |ursor #[|(name &o|
|00005d00| 70 74 69 6f 6e 61 6c 20 | 66 67 20 62 67 20 64 65 |ptional |fg bg de|
|00005d10| 76 69 63 65 29 20 22 c0 | 09 5c 6e c3 23 87 22 20 |vice) ".|.\n.#." |
|00005d20| 5b 6d 61 6b 65 2d 69 6d | 61 67 65 2d 69 6e 73 74 |[make-im|age-inst|
|00005d30| 61 6e 63 65 20 6e 61 6d | 65 20 64 65 76 69 63 65 |ance nam|e device|
|00005d40| 20 28 70 6f 69 6e 74 65 | 72 29 5d 20 34 20 28 23 | (pointe|r)] 4 (#|
|00005d50| 24 20 2e 20 32 32 31 30 | 32 29 5d 29 0a 28 62 79 |$ . 2210|2)]).(by|
|00005d60| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c3 |te-code |"...\"..|
|00005d70| c4 1d 1e 06 c7 0e 06 0d | 5c 22 88 c0 0e 06 0d 5c |........|\".....\|
|00005d80| 22 88 2a c8 c9 1d 1e 06 | c7 0e 06 0d 5c 22 88 c0 |".*.....|....\"..|
|00005d90| 0e 06 0d 5c 22 88 2a ca | cb 1d 1e 06 c7 0e 06 0d |...\".*.|........|
|00005da0| 5c 22 88 c0 0e 06 0d 5c | 22 88 2a cc cd ce 5c 22 |\".....\|".*...\"|
|00005db0| 87 22 20 5b 6d 61 6b 65 | 2d 6f 62 73 6f 6c 65 74 |." [make|-obsolet|
|00005dc0| 65 20 6d 61 6b 65 2d 63 | 75 72 73 6f 72 20 6d 61 |e make-c|ursor ma|
|00005dd0| 6b 65 2d 69 6d 61 67 65 | 2d 69 6e 73 74 61 6e 63 |ke-image|-instanc|
|00005de0| 65 20 70 69 78 6d 61 70 | 2d 77 69 64 74 68 20 67 |e pixmap|-width g|
|00005df0| 6c 79 70 68 2d 77 69 64 | 74 68 20 6e 65 77 66 75 |lyph-wid|th newfu|
|00005e00| 6e 20 6f 6c 64 66 75 6e | 20 64 65 66 69 6e 65 2d |n oldfun| define-|
|00005e10| 66 75 6e 63 74 69 6f 6e | 20 70 69 78 6d 61 70 2d |function| pixmap-|
|00005e20| 63 6f 6e 74 72 69 62 75 | 74 65 73 2d 74 6f 2d 6c |contribu|tes-to-l|
|00005e30| 69 6e 65 2d 68 65 69 67 | 68 74 2d 70 20 67 6c 79 |ine-heig|ht-p gly|
|00005e40| 70 68 2d 63 6f 6e 74 72 | 69 62 2d 70 2d 69 6e 73 |ph-contr|ib-p-ins|
|00005e50| 74 61 6e 63 65 20 73 65 | 74 2d 70 69 78 6d 61 70 |tance se|t-pixmap|
|00005e60| 2d 63 6f 6e 74 72 69 62 | 75 74 65 73 2d 74 6f 2d |-contrib|utes-to-|
|00005e70| 6c 69 6e 65 2d 68 65 69 | 67 68 74 20 73 65 74 2d |line-hei|ght set-|
|00005e80| 67 6c 79 70 68 2d 63 6f | 6e 74 72 69 62 2d 70 20 |glyph-co|ntrib-p |
|00005e90| 64 65 66 61 6c 69 61 73 | 20 64 69 73 70 6c 61 79 |defalias| display|
|00005ea0| 2d 63 6f 6c 75 6d 6e 2d | 6d 6f 64 65 20 63 6f 6c |-column-|mode col|
|00005eb0| 75 6d 6e 2d 6e 75 6d 62 | 65 72 2d 6d 6f 64 65 5d |umn-numb|er-mode]|
|00005ec0| 20 33 29 0a 23 40 33 30 | 39 20 52 65 74 75 72 6e | 3).#@30|9 Return|
|00005ed0| 20 61 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 6f | a descr|iption o|
|00005ee0| 66 20 74 68 65 20 63 6f | 6c 6f 72 20 6e 61 6d 65 |f the co|lor name|
|00005ef0| 64 20 43 4f 4c 4f 52 20 | 6f 6e 20 66 72 61 6d 65 |d COLOR |on frame|
|00005f00| 20 46 52 41 4d 45 2e 0a | 54 68 65 20 76 61 6c 75 | FRAME..|The valu|
|00005f10| 65 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 69 |e is a l|ist of i|
|00005f20| 6e 74 65 67 65 72 20 52 | 47 42 20 76 61 6c 75 65 |nteger R|GB value|
|00005f30| 73 2d 2d 28 52 45 44 20 | 47 52 45 45 4e 20 42 4c |s--(RED |GREEN BL|
|00005f40| 55 45 29 2e 0a 54 68 65 | 73 65 20 76 61 6c 75 65 |UE)..The|se value|
|00005f50| 73 20 61 70 70 65 61 72 | 20 74 6f 20 72 61 6e 67 |s appear| to rang|
|00005f60| 65 20 66 72 6f 6d 20 30 | 20 74 6f 20 36 35 32 38 |e from 0| to 6528|
|00005f70| 30 20 6f 72 20 36 35 35 | 33 35 2c 20 64 65 70 65 |0 or 655|35, depe|
|00005f80| 6e 64 69 6e 67 0a 6f 6e | 20 74 68 65 20 73 79 73 |nding.on| the sys|
|00005f90| 74 65 6d 3b 20 77 68 69 | 74 65 20 69 73 20 28 36 |tem; whi|te is (6|
|00005fa0| 35 32 38 30 20 36 35 32 | 38 30 20 36 35 32 38 30 |5280 652|80 65280|
|00005fb0| 29 20 6f 72 20 28 36 35 | 35 33 35 20 36 35 35 33 |) or (65|535 6553|
|00005fc0| 35 20 36 35 35 33 35 29 | 2e 0a 49 66 20 46 52 41 |5 65535)|..If FRA|
|00005fd0| 4d 45 20 69 73 20 6f 6d | 69 74 74 65 64 20 6f 72 |ME is om|itted or|
|00005fe0| 20 6e 69 6c 2c 20 75 73 | 65 20 74 68 65 20 73 65 | nil, us|e the se|
|00005ff0| 6c 65 63 74 65 64 20 66 | 72 61 6d 65 2e 1f 0a 28 |lected f|rame...(|
|00006000| 64 65 66 61 6c 69 61 73 | 20 27 78 2d 63 6f 6c 6f |defalias| 'x-colo|
|00006010| 72 2d 76 61 6c 75 65 73 | 20 23 5b 28 63 6f 6c 6f |r-values| #[(colo|
|00006020| 72 20 26 6f 70 74 69 6f | 6e 61 6c 20 66 72 61 6d |r &optio|nal fram|
|00006030| 65 29 20 22 c0 c1 5c 6e | 21 21 87 22 20 5b 63 6f |e) "..\n|!!." [co|
|00006040| 6c 6f 72 2d 69 6e 73 74 | 61 6e 63 65 2d 72 67 62 |lor-inst|ance-rgb|
|00006050| 2d 63 6f 6d 70 6f 6e 65 | 6e 74 73 20 6d 61 6b 65 |-compone|nts make|
|00006060| 2d 63 6f 6c 6f 72 2d 69 | 6e 73 74 61 6e 63 65 20 |-color-i|nstance |
|00006070| 63 6f 6c 6f 72 5d 20 33 | 20 28 23 24 20 2e 20 32 |color] 3| (#$ . 2|
|00006080| 34 32 36 36 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |4266)]).|(byte-co|
|00006090| 64 65 20 22 c0 c1 c2 5c | 22 88 c3 c4 1d 1e 06 c7 |de "...\|".......|
|000060a0| 0e 06 0d 5c 22 88 c0 0e | 06 0d 5c 22 88 2a c8 c9 |...\"...|..\".*..|
|000060b0| 1d 1e 06 c7 0e 06 0d 5c | 22 88 c0 0e 06 0d 5c 22 |.......\|".....\"|
|000060c0| 88 2a ca cb cc 5c 22 88 | ca cd ce 5c 22 87 22 20 |.*...\".|...\"." |
|000060d0| 5b 6d 61 6b 65 2d 63 6f | 6d 70 61 74 69 62 6c 65 |[make-co|mpatible|
|000060e0| 20 78 2d 63 6f 6c 6f 72 | 2d 76 61 6c 75 65 73 20 | x-color|-values |
|000060f0| 63 6f 6c 6f 72 2d 69 6e | 73 74 61 6e 63 65 2d 72 |color-in|stance-r|
|00006100| 67 62 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 20 63 68 |gb-compo|nents ch|
|00006110| 61 72 2d 69 6e 74 20 63 | 68 61 72 2d 74 6f 2d 69 |ar-int c|har-to-i|
|00006120| 6e 74 20 6e 65 77 66 75 | 6e 20 6f 6c 64 66 75 6e |nt newfu|n oldfun|
|00006130| 20 64 65 66 69 6e 65 2d | 66 75 6e 63 74 69 6f 6e | define-|function|
|00006140| 20 69 6e 74 2d 63 68 61 | 72 20 69 6e 74 2d 74 6f | int-cha|r int-to|
|00006150| 2d 63 68 61 72 20 6d 61 | 6b 65 2d 6f 62 73 6f 6c |-char ma|ke-obsol|
|00006160| 65 74 65 20 66 6f 6c 6c | 6f 77 69 6e 67 2d 63 68 |ete foll|owing-ch|
|00006170| 61 72 20 63 68 61 72 2d | 61 66 74 65 72 20 70 72 |ar char-|after pr|
|00006180| 65 63 65 64 69 6e 67 2d | 63 68 61 72 20 63 68 61 |eceding-|char cha|
|00006190| 72 2d 62 65 66 6f 72 65 | 5d 20 33 29 0a 23 40 31 |r-before|] 3).#@1|
|000061a0| 34 36 20 43 6f 6e 76 65 | 72 74 20 53 54 52 49 4e |46 Conve|rt STRIN|
|000061b0| 47 20 74 6f 20 61 20 73 | 65 71 75 65 6e 63 65 20 |G to a s|equence |
|000061c0| 6f 66 20 54 59 50 45 20 | 77 68 69 63 68 20 63 6f |of TYPE |which co|
|000061d0| 6e 74 61 69 6e 73 20 63 | 68 61 72 61 63 74 65 72 |ntains c|haracter|
|000061e0| 73 20 69 6e 20 53 54 52 | 49 4e 47 2e 0a 54 59 50 |s in STR|ING..TYP|
|000061f0| 45 20 73 68 6f 75 6c 64 | 20 62 65 20 60 6c 69 73 |E should| be `lis|
|00006200| 74 27 20 6f 72 20 60 76 | 65 63 74 6f 72 27 2e 0a |t' or `v|ector'..|
|00006210| 4d 75 6c 74 69 62 79 74 | 65 20 63 68 61 72 61 63 |Multibyt|e charac|
|00006220| 74 65 72 73 20 61 72 65 | 20 63 6f 6e 63 65 72 6e |ters are| concern|
|00006230| 65 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ed...(de|falias '|
|00006240| 73 74 72 69 6e 67 2d 74 | 6f 2d 73 65 71 75 65 6e |string-t|o-sequen|
|00006250| 63 65 20 23 5b 28 73 74 | 72 69 6e 67 20 74 79 70 |ce #[(st|ring typ|
|00006260| 65 29 20 22 08 c1 61 ab | 85 c2 c3 0c 5c 22 87 08 |e) "..a.|....\"..|
|00006270| c5 61 ab 85 c6 c3 0c 5c | 22 87 c7 c8 08 c9 23 ad |.a.....\|".....#.|
|00006280| 81 ca 87 22 20 5b 74 79 | 70 65 20 6c 69 73 74 20 |..." [ty|pe list |
|00006290| 6d 61 70 63 61 72 20 69 | 64 65 6e 74 69 74 79 20 |mapcar i|dentity |
|000062a0| 73 74 72 69 6e 67 20 76 | 65 63 74 6f 72 20 6d 61 |string v|ector ma|
|000062b0| 70 76 65 63 74 6f 72 20 | 65 72 72 6f 72 20 22 65 |pvector |error "e|
|000062c0| 63 61 73 65 20 66 61 69 | 6c 65 64 3a 20 25 73 2c |case fai|led: %s,|
|000062d0| 20 25 73 22 20 28 6c 69 | 73 74 20 76 65 63 74 6f | %s" (li|st vecto|
|000062e0| 72 29 20 6e 69 6c 5d 20 | 34 20 28 23 24 20 2e 20 |r) nil] |4 (#$ . |
|000062f0| 32 34 39 39 35 29 5d 29 | 0a 23 40 34 30 20 52 65 |24995)])|.#@40 Re|
|00006300| 74 75 72 6e 20 61 20 6c | 69 73 74 20 6f 66 20 63 |turn a l|ist of c|
|00006310| 68 61 72 61 63 74 65 72 | 73 20 69 6e 20 53 54 52 |haracter|s in STR|
|00006320| 49 4e 47 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ING...(d|efalias |
|00006330| 27 73 74 72 69 6e 67 2d | 74 6f 2d 6c 69 73 74 20 |'string-|to-list |
|00006340| 23 5b 28 73 74 72 69 6e | 67 29 20 22 c0 c1 5c 6e |#[(strin|g) "..\n|
|00006350| 5c 22 87 22 20 5b 6d 61 | 70 63 61 72 20 69 64 65 |\"." [ma|pcar ide|
|00006360| 6e 74 69 74 79 20 73 74 | 72 69 6e 67 5d 20 33 20 |ntity st|ring] 3 |
|00006370| 28 23 24 20 2e 20 32 35 | 33 34 32 29 5d 29 0a 23 |(#$ . 25|342)]).#|
|00006380| 40 34 32 20 52 65 74 75 | 72 6e 20 61 20 76 65 63 |@42 Retu|rn a vec|
|00006390| 74 6f 72 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |tor of c|haracter|
|000063a0| 73 20 69 6e 20 53 54 52 | 49 4e 47 2e 1f 0a 28 64 |s in STR|ING...(d|
|000063b0| 65 66 61 6c 69 61 73 20 | 27 73 74 72 69 6e 67 2d |efalias |'string-|
|000063c0| 74 6f 2d 76 65 63 74 6f | 72 20 23 5b 28 73 74 72 |to-vecto|r #[(str|
|000063d0| 69 6e 67 29 20 22 c0 c1 | 5c 6e 5c 22 87 22 20 5b |ing) "..|\n\"." [|
|000063e0| 6d 61 70 76 65 63 74 6f | 72 20 69 64 65 6e 74 69 |mapvecto|r identi|
|000063f0| 74 79 20 73 74 72 69 6e | 67 5d 20 33 20 28 23 24 |ty strin|g] 3 (#$|
+--------+-------------------------+-------------------------+--------+--------+